Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
For ix = 1 To 10
Move
Next
End Sub
Sub Move()
Dim temp, robot As JavaObject
Dim c3po As AWTRobot
robot = temp.InitializeStatic("com.sun.glass.ui.Application").RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
c3po.MoveMouse(500, 500)
Dim MouseX, MouseY As Int
MouseX = robot.RunMethod("getMouseX",Null) ' screen co-ordinate not the forms
MouseY = robot.RunMethod("getMouseY",Null) ' as x
Log("X " & MouseX)
Log("Y " & MouseY)
End Sub