Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Upper(KeyAscii) End Sub Function Upper(KeyAscii As Integer) If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = KeyAscii - 32 End If Upper = KeyAscii End Function 'Con questa tecnica si elimina l'utilizzo del comando Ucase. |