"All Caps" in a text box

Is there some easy way of making it so that when a user enters a letter in a text box that the letter always appears as a capital letter? Or will I have to code something into the KeyPress event that will change the text type? Thanks

------------------
Ryan

You can do the following in the KeyPress event :
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))

This will capitalize all the text that is entered in the textbox.



------------------
Joe Handal
Workstation Engineer
[email protected]

Option 2:

Code:

---

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

---

All the best.

Chris

Thank you both. I used both of your suggestions, just to make sure that it gets capitalized.

------------------
Ryan