Sub ENTER_PRESS
Dim robot1 As JavaObject
Dim jo1 As JavaObject
Dim keycodes As JavaObject
keycodes.InitializeStatic("javafx.scene.input.KeyCode")
jo1.InitializeStatic("com.sun.glass.ui.Application")
robot1 = jo1.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
' you have to think how you would type the characters
robot1.RunMethod("keyPress", Array(keycodes.GetField("ENTER")))
robot1.RunMethod("keyRelease", Array(keycodes.GetField("ENTER")))
End Sub