If there is a situation to accept only upper case in a text, it can be done easily by adding the following statement in the KeyPress event. This will reduce the head ache of changing the case each item. Key board can be set in any case, but the data entered in the text box will be in Upper case.

KeyAscii = Asc(Ucase(Char(KeyAscii)))