* 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() ENDDEFINESame for ActiveForm,ActiveControl ....