Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
MainForm.RootPane.LoadLayout("1")
Dim jo As JavaObject = HTMLEditor1
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))
HTMLEditor1.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