[VB 6] Testo Maiuscolo

[grendy]

prova cosi ...

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 96 And KeyAscii < 123 Then
        KeyAscii = KeyAscii - 32
    End If
End Sub

dovrebbe funzionare