Sub tAmount_FocusChanged (HasFocus As Boolean)
If HasFocus=True Then
tAmount.SelectAll
IME.SetCustomFilter(tAmount,tAmount.INPUT_TYPE_NUMBERS,"0123456789.")
IME.ShowKeyboard(tAmount)
Else
LoadingActivity = True
tAmount.Text = u.FixDouble(tAmount.Text)
LoadingActivity = False
IME.HideKeyboard
End If
End Sub