
Automatic Capital Letter for 1st Letter???
If I understand you correctly, you only want the first character in the
TextBox to be upper case -- and all the following letters, all of them, are
to be lower case. Then try this Change event code for the TextBox:
Private Sub Text1_Change()
Static InUse As Boolean
Dim CursorAt As Long
If Not InUse Then
InUse = True
With Text1
CursorAt = .SelStart
.Text = LCase(.Text)
.SelStart = 0
.SelLength = 1
.SelText = UCase$(Left$(.Text, 1))
.SelStart = CursorAt
End With
InUse = False
End If
End Sub
Rick
Quote:
> Hi i was wondering how i would make the first letter that i input into a
> text box turn automatically into a Capital Letter???
> Thanks in advance