private Sub setHandler(ob As Object,eventName As String,handlerName As String)
asJavaObject(ob).RunMethod(eventName, Array(asJavaObject(ob).CreateEventFromUI("javafx.event.EventHandler",handlerName,False)))
End Sub
private Sub asJavaObject(j As JavaObject) As JavaObject
Return j
End Sub
Sub appstart
setHandler(parentPane,"setOnKeyPressed","textfield_keypressed"
end sub
private Sub textfield_keypressed_Event(MethodName As String, Args() As Object)
'Do stuff here, the args contains the keyEvent that you must declare as a java Object like this:
dim KeyEvent as Javaobject = args(0)
End Sub