ox = CREATEOBJECT("myform") ox.show(1) DEFINE CLASS myform AS Form ADD OBJECT x AS CommandButton PROCEDURE x.Click WITH THISFORM oy = CREATEOBJECT("myclass") oy.DoIt() ENDWITH ENDPROC ENDDEFINE DEFINE CLASS myclass as Custom PROCEDURE DoIt() WAIT WINDOW .Caption WAIT WINDOW .WindowState * WAIT WINDOW THISFORM.Caption would fail * with the appropriate error: * object is not contained in a form. ENDPROC ENDDEFINE