Dim kb As IME
Dim EditText1 As EditText
kb.Initialize("")
EditText1.Initialize("")
Activity.AddView(EditText1, 0dip, 50dip, 100%x, 40dip)
kb.SetCustomFilter(EditText1, EditText1.INPUT_TYPE_TEXT, "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890")