uCase(textox1.text)
hola que tal verifica este cod:
Private Sub Text1_Change()
If Text1.Text = LCase(Text1.Text) Then
Text1.Text = UCase(Text1.Text)
Else
Text1.Text = uCase(Text1.Text)
End If
End Sub
bueno en esto no mke sale
pero en esto si
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = UCase(Text1.Text)
End If
End Sub
SALUDOS ...........