TEXT
Como eu faço para que o que eu Digitar no Text em Minúsculo fique Maiúsculo depois que eu Clicar no label ou em outro lugar.
No evento LostFocus do Text, insira algo como:
Private Sub Text1_LostFocus()
If Not Text1.Text = Empty then
Text1.Text = UCase(Text1.Text)
End If
End Sub
Private Sub Text1_LostFocus()
If Not Text1.Text = Empty then
Text1.Text = UCase(Text1.Text)
End If
End Sub
Tópico encerrado , respostas não são mais permitidas