> >ox = Createobject( "MyCustom" ) >ox.oCollection = createobject( "collection" ) >... > >DEFINE CLASS MyCustom AS CUSTOM > oCollection = .NULL. >PROCEDURE Destroy() > THIS.oCollection = .NULL. >ENDPROC >ENDDEFINE >