>* Expected no errors >=CREATEOBJECT("myForm1") > >DEFINE CLASS myForm1 AS Form > PROCEDURE Load > IF PEMSTATUS(m.this,"Parent",5) ; && Expected .F. > AND NOT PEMSTATUS(m.this,"Parent",2) && Expected .T. > ? GETPEM(m.this,"Parent") && Then : Error 1924 > ENDIF > RETURN .F. > > PROCEDURE eRROR > LPARAMETERS nError, cMethod, nLine > ? nError,MESSAGE() >ENDDEFINE >>Same for ActiveForm,ActiveControl ....