Sub Globals
Dim EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
EditText1.Initialize("ET1")
Activity.AddView(EditText1, 50dip, 50dip, 100dip, 60dip)
End Sub
Sub ET1_TextChanged (Old As String, New As String)
Try
If EditText1.Text < 5 Then ToastMessageShow("Smaller", False)
Catch
Log(LastException.Message)
End Try
End Sub