Sub Activity_Resume
T.Initialize("T", 200)
T.Enabled = True
' Sleep(100)
' CallSubDelayed(Me, "OpenKeyBoard")
End
Sub T_Tick
T.Enabled = False
ValueTxt.InputType = Bit.Or(ValueTxt.InputType, 524288)
ValueTxt.RequestFocus
'ValueTxt.InputType = Bit.Or(ValueTxt.InputType, 524288)
Sleep(100)
IME.ShowKeyboard(ValueTxt)
End Sub