ConversUcase

'Nell'evento keypress del textbox scrivere:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Upper(KeyAscii)
End Sub
'_________________________________________________________


'In un modulo (file BAS) aggiungere la funzione:

Function Upper(KeyAscii as Integer)
If KeyAscii>96 and KeyAscii < 123 Then
KeyAscii=KeyAscii - 32
End If
Upper = KeyAscii
End Function