Sub keypad_click
Dim ime1 As IME
ime1.AddHandleActionEvent(txt1)
'if there is text already entered then start with 2 blank lines to separate new from old
If txt1.Text.Length>0 Then txt1.Text=txt1.Text&CRLF&CRLF
txt1.SelectionStart=txt1.Text.Length'place cursor at end of existing text
ime1.ShowKeyboard(txt1)
End Sub
Sub ime1_HandleAction As Boolean
Log("ime1 -- Action key was pressed")
End Sub