Try

	PROCEDURE text1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		*DODEFAULT(Asc(Lower(Chr(nKeyCode))), nShiftAltCtrl)
		Textbox::KeyPress(Asc(Lower(Chr(nKeyCode))), nShiftAltCtrl)
		NODEFAULT 
	ENDPROC

>
>Curiously, when I put your code into my Textbox.Keypress, all keystrokes get ignored.
>
>Could it be that because this textbox is a sub-class of some basetextbox, this causes problems?
>
>In any case, this is an after-Christmas problem ... time to quit until Monday.