>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)