dim joTXT as javaobject = txt
Dim event As Object = joTXT.CreateEventFromUI("javafx.event.EventHandler","keypressed", Null)
joTXT.RunMethod("setOnKeyPressed", Array(event))
private Sub keypressed_Event (MethodName As String, Args() As Object) As Object
CallSubDelayed2("yourModule","YourEventName" & "_keypressed",args(1))
End Sub