Sub EditText1_EnterPressed
RequestFocus(Panel1)
End Sub
Sub SetFocusable(Vw As View, Focusable As Boolean)
Dim jo As JavaObject = Vw
jo.RunMethod("setFocusable", Array(Focusable))
jo.RunMethod("setFocusableInTouchMode", Array(Focusable))
End Sub
Sub RequestFocus(Vw As View)
Dim jo As JavaObject = Vw
jo.RunMethod("requestFocus", Null)
End Sub