Shift Keypress

[dar1]

I need to be able to stop users using the shift key. This is to stop the use of Uppercase letters.
I can't use the Ucase$ statement because I need to change Vowel letters into capitals by using code.

[John G Duffy]

An easy way would be to trap on the Keypress event and convert Upper case keystrokes to lower case.
Here is a small example using a TextBox

private Sub Text1_KeyPress(KeyAscii as Integer)
Debug.print KeyAscii
If KeyAscii > 64 And KeyAscii < 91 then KeyAscii = KeyAscii Or &H20
End Sub




John G