◄Example► ◄Contents► ◄Index► ◄Back► ────────────────────────────────────────────────────────────────────────────── ' This example illustrates the use of the KeyPress event by showing a ' procedure that converts the text entered into a text box to uppercase. ' To try this example: ' 1. Choose New Project from the File menu ' 2. Choose New Form from the File menu to create a form with a text box ' 3. Press Alt+F4 to return to the programming environment ' 4. Copy the code example below to the form module ' 5. Press F5 to run the example SUB Text1_KeyPress (KeyAscii AS INTEGER) C$ = CHR$(KeyAscii) Keyascii = ASC(UCASE$(C$)) END SUB