loo=CREATEOBJECT("_FormExEx") loo.AddObject("txt1", "Textbox") loo.txt1.Visible=.t. loo.Visible=.t. SUSP DEFINE CLASS _Form AS FORM Name="_Form" KeyPreview=.T. PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl DEBUGOUT "_Form","KeyPress" ENDPROC ENDDEFINE DEFINE CLASS _FormEx AS _Form Name="_FormEx" PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl DEBUGOUT "_FormEx","KeyPress" DODEFAULT() ENDPROC ENDDEFINE DEFINE CLASS _FormExEx AS _FormEx Name="_FormExEx" PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl DEBUGOUT "_FormExEx","KeyPress" LOCAL m.liClassCNT LOCAL ARRAY m.laClass(1) m.liClassCNT=ACLASS(m.laClass, This) =EVALUATE(m.laClass(MIN(1+2, m.liClassCNT))+"::KeyPress(nKeyCode, nShiftAltCtrl)") RETURN ENDPROC ENDDEFINEMartinaJ