Come escludere un carattere? (KeyAscii)
	  =======================================

  ' //queste linee permettono di non accettare il  tipo
  ' //di carattere scelto. Es ( car. numerici, alfabetici, ecc..)
  Private sub Text1.KeyPress
  	Select case keyascii
  ' esclude i caratteri alfabetici
             case 47 to 58
             case 8
             case else
                 beep            
                 keyascii=0
        end select
  ' immettendo un carattere alfabetico, viene generato un
  ' segnale acustico ed il carattere non viene accettato.

*********************************************************
N.B. Per info sui caratteri ascii vedi nella