Originariamente inviato da gibra
Un modo pratico è questo:

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Ciao
... non direi pratico... è proprio quello che volevo!
grazie gibra!!!!