Sub Globals
' Add these 2 declarations
Dim fakeEditText as EditText
Dim mIME as IME 'need to check IME library
End Sub
Sub Activity_Create(FirstTime as Boolean)
' Call this before loading your layout
fakeEditText.initialize("")
fakeEditText.enabled=False
Activity.Addview(fakeEditText,0,0,20,20) 'whatever size, since it will not be visible
' Now the code as you had it....
' ...
End Sub
Sub TabStrip1_PageSelected (Position As Int) 'Change event name as you have defined it
fakeEditText.requestFocus
mIME.HideKeyboard
End Sub