Private Sub CheckFields
If AS_TextFieldAdvanced4.Text = "" Then
AS_TextFieldAdvanced4.Hint.Text = "This field really needs a picture #"
AS_TextFieldAdvanced4.Refresh
Else
otreNum
End If
End Sub
Private Sub otreNum
Select True
Case AS_TextFieldAdvanced4.Text > 1 And AS_TextFieldAdvanced4.Text < 101
Label1.Text = AS_TextFieldAdvanced4.Text
Label1.BringToFront
AS_TextFieldAdvanced4.Text = ""
AS_TextFieldAdvanced4.Hint.Text = " good # between 1 and 101" ' fsfsfs
AS_TextFieldAdvanced4.Refresh
ImageView1.SetBitmap(xui.LoadBitmapResize(File.DirAssets,"b4Logo.png",ImageView1.Width,ImageView1.Height,True))
Log( " good # between 1 and 101")
Log( "")
Case AS_TextFieldAdvanced4.Text = 0
...
...
Thanks for the comments and developer feedback.