Sub KeyPressed_Filter (e As Event)
Dim jo As JavaObject = e
Dim EventType As String = jo.RunMethodJO("getEventType", Null).RunMethod("getName", Null)
Log(EventType)
Select Case EventType
Case "KEY_PRESSED"
Dim keycode As String = jo.RunMethod("getCode", Null)
Log(keycode)
end select
end sub