Ciao Claudio Come sempre forza MAnTOVA.


prova a guradrare questo:

Private Sub Txt1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97 To 122
' tutto ok; lettere da a alla z
End Select
'
Select Case KeyAscii
Case 65 To 90, 8
' tutto ok; lettere da A alla Z e Backspace
Case Else
KeyAscii = 0
End Select
End Sub

Questo esempio ti permette di inserire solo lettere o maiuscole o minuscole.
Se metti qualche atro carattere non te lo fa mettere.