Sub SetFocusable(n As Node, Focusable As Boolean)
Dim obj1 As Reflector
obj1.Target = n
If Focusable Then
obj1.RunMethod2("setFocusTraversable", "True", "java.lang.boolean")
Else
obj1.RunMethod2("setFocusTraversable", "False", "java.lang.boolean")
End If
End Sub