Sub Activity_Resume
Dim obj1 As Reflector
obj1.Target = MyEditText
obj1.RunMethod2("setFocusable", "True", "java.lang.boolean")
obj1.RunMethod2("setFocusableInTouchMode", "True", "java.lang.boolean")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
IME1.HideKeyboard
Dim obj1 As Reflector
obj1.Target = MyEditText
obj1.RunMethod2("setFocusable", "False", "java.lang.boolean")
End Sub