r.AddEventFilter("keypressed", "javafx.scene.input.KeyEvent.ANY")
Sub KeyPressed_Filter (e As Event)
If Dialog.Visible Then
Dim jo As JavaObject = e
Dim EventType As String = jo.RunMethodJO("getEventType", Null).RunMethod("getName", Null)
If EventType = "TAB" Then
e.Consume
End If
End If
End Sub