DEFINE CLASS MainClass AS ... OLEPUBLIC oChildClass = NULL PROCEDURE CreateChildClass() LOCAL loChild AS MyChildClass loChild = CREATEOBJECT([MyChildClass]) loChild.UniqueString = [IWantToPlayWithThis] this.oChildClass = loChild ENDPROC ....... ENDDEFINE DEFINE CLASS MyChildClass AS .... OLEPUBLIC UniqueString = [] PROCEDURE AnyMethodOrEventOfThisClass IF NOT this.UniqueString == [IWantToPlayWithThis] this.Release() RETURN NULL ENDIF .... ENDPROC ENDDEFINE(not tested)