Dim ref As Reflector
ref.Target = EditText1
ref.RunMethod2("setImeOptions",0x08000001, "java.lang.int") 'IME_FLAG_NO_EXTRACT_UI |IME_ACTION_SEND constants
'IME_ACTION_SEND = 1 ->enter symbol,
'2 -> "Go",
'3 -> magnifying glass(Search),
'4 -> "Send",
'5 -> "Next",
'6 -> "Finished",
'7 -> "Prev",