Sub KeycodeFromString(s As String) As Object
Dim jo As JavaObject
Return jo.InitializeStatic("javafx.scene.input.KeyCode").RunMethod("getKeyCode", Array(s.ToUpperCase))
End Sub
Sub KeycodeFromString(s As String) As String
Dim jo As JavaObject
Return jo.InitializeStatic("javafx.scene.input.KeyCode").RunMethod("getKeyCode", Array(s.ToUpperCase))
End Sub