Sub Button1_Click
Dim obj1 As Reflector
If EditText2.Enabled Then ' Enabled, so Disable
EditText2.Enabled = False
obj1.Target = EditText2
obj1.RunMethod2("setFocusable", "False", "java.lang.boolean")
obj1.RunMethod2("setFocusableInTouchMode", "False", "java.lang.boolean")
Else
EditText2.Enabled = True
obj1.Target = EditText2
obj1.RunMethod2("setFocusable", "True", "java.lang.boolean")
obj1.RunMethod2("setFocusableInTouchMode", "True", "java.lang.boolean")
End If
End Sub