public Sub SetFocus(Obj As HTMLEditor)
Dim jo As JavaObject = Obj
Dim wv As JavaObject = jo.RunMethodJO("getSkin", Null).RunMethodJO("getChildren", Null) _
.RunMethodJO("get", Array(0)).RunMethodJO("getChildren", Null).RunMethod("get", Array(2))
Sleep(500)
Dim mevent As JavaObject
Dim meventstatic As JavaObject
meventstatic.InitializeStatic("javafx.scene.input.MouseEvent")
mevent.InitializeNewInstance("javafx.scene.input.MouseEvent", _
Array(meventstatic.GetField("MOUSE_PRESSED"), 100.1, 100.1, 200.1, 200.1, "PRIMARY", 1, False, False, False, False, False, False, False, False, False, False, Null))
wv.RunMethod("fireEvent", Array(mevent))
Obj.RequestFocus
mevent.InitializeNewInstance("javafx.scene.input.MouseEvent", _
Array(meventstatic.GetField("MOUSE_RELEASED"), 100.1, 100.1, 200.1, 200.1, "PRIMARY", 1, False, False, False, False, False, False, False, False, False, False, Null))
wv.RunMethod("fireEvent", Array(mevent))
End Sub