Text boxes

[fassumpcao]

Hello everyone
I would like to know how can I convert a lowcase text in a text box to uppercase??
Thanks for the help
Felipe

[rancor]

Private Sub Command1_Click()
Dim i As Integer
Dim sTmp As String
For i = 1 To Len(Text1.Text)
sTmp = sTmp & UCase(Mid(Text1.Text, i, 1))
Next
Text1.Text = sTmp
End Sub

[RealisticGraphics]

You could do that, but it is easier to just use this:

Private Sub Command1_Click()
Text1.Text = UCase(Text1.Text)
End Sub

You could even do it this way:

Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End Sub

This example will change to text to upper case as they type.

[rancor]

ops.. hehehe.. Your way was better..

[fassumpcao]

Thanks everyone for the help
Felipe