Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
'First Example if the mouse is inside the object ( example calendar )
Dim JO As JavaObject = Pane1 'or Whichever Node you are tracking
Dim O As Object = JO.CreateEventFromUI("javafx.event.EventHandler","MouseEntered",Null)
JO.RunMethod("setOnMouseEntered",Array(O))
Dim O As Object = JO.CreateEventFromUI("javafx.event.EventHandler","MouseExited",Null)
JO.RunMethod("setOnMouseExited",Array(O))
End Sub
Private Sub MouseEntered_Event (MethodName As String, Args() As Object)
Log("Mouse inside")
End Sub
Private Sub MouseExited_Event (MethodName As String, Args() As Object)
Log("Mouse Out")
End Sub