'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 Conversione in Maiuscolo del contenuto di una TexBox |