anpol60 ha scritto:

Ciao
prova questo codice:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Su
Funziona, ma non sempre, Il codice non funziona se incolli nella Text un testo in minuscolo.