scusa:

codice:
If KeyAscii = 32 Then
Label1.Caption = Label1.Caption & " "
End If
If Not (KeyAscii > 32 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 255) Then
  KeyAscii = KeyAscii - 32 'trasforma la lettera in maiuscolo
End If
Label1.Caption = Label1.Caption & Chr(KeyAscii)
ciao