Caps Lock

[dar1]

How can I disable the use of the caps lock and the shift keys in a text box keypress event
I need to be able to control how the user inputs text in a text box by code

[DSJ]

Assuming you want all lowercase...


private Sub Text1_KeyPress(KeyAscii as Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

[dar1]

I will give it a go thanks
dar1