Sub etMorning_FocusChanged (HasFocus As Boolean)
If HasFocus Then
etMorning.SelectAll
IME.SetCustomFilter(etMorning, etMorning.INPUT_TYPE_NUMBERS, "0123456789")
IME.ShowKeyboard(etMorning)
End If
End Sub
etMorning.RequestFocus
Sub etMorning_FocusChanged (HasFocus As Boolean)
If HasFocus Then
IME.HideKeyboard
End If
End Sub
Dim IME As IME
.
.
IME.Initialize("")