Re: Text Box

If you want to block non-numeric characters from being entered
into a text box, you will need to use the Keypress event and
examine each character that is entered.

sub text1_keypress(asciikey as integer)
  select case asciikey
&nbsp;   case 8, 13, 46, 48 to 57 &nbsp;  'backspace, <Enter&gt;, period, 0 to 9
 &nbsp;  case else
 ; &nbsp; &nbsp; &nbsp; asciikey = 0 &nbsp;  &nbsp;  &nbsp;  &nbsp;  &nbsp; 'Some other character
  end select