Sub IME_HandleAction As Boolean
Dim edt As EditText
edt = Sender
Log("IME_HandleAction:")
Log("EditText.Tag="&edt.Tag)
Select edt.Tag
Case "edtOSGBGridRef1"
If edtOSGBGridRef1Valid Then
IME.HideKeyboard
IME.ShowKeyboard(edtOSGBGridRef2)
Else
ToastMessageShow("Correct OSGB Grid Reference Map", True)
'Consume the event
'The keyboard will not be closed
Return True
End If