*** ActiveX Control Event *** LPARAMETERS keycode, SHIFT LOCAL ; NewKeyKode DO CASE CASE BETWEEN(keycode, 65, 90) * *** letters IF SHIFT = 0 * *** lower case NewKeyKode = ASC(LOWER(CHR(keycode))) ELSE * *** upper case NewKeyKode = ASC(UPPER(CHR(keycode))) ENDIF CASE BETWEEN(keycode, 48, 57) * *** numbers NewKeyKode = keycode *CASE BETWEEN(keycode, ?, ?) * *** sings and other ENDCASE ThisForm.KeyPress(NewKeyKode, SHIFT)Maybe i am going about it the wrong way. Any suggestions? Thanks in advance!