Fixing a Proper Case Tip

Fixing a Proper Case Tip

If you use the left arrow key to go back to the beginning of a word and then enter a letter, you get twouppercase letters. Use this code, which takes advantage of the built-in VB4/VB5 StrConv() function, toautomatically capitalize words upon entering:

 Private Sub Text1_Change()        If Text1.Tag = "" Then                Text1.Tag = Text1.SelStart                Text1.Text = StrConv(Text1.Text,        vbProperCase)                Text1.SelStart = Text1.Tag                Text1.Tag = ""        End IfEnd Sub


Share the Post: