*!* Off-the-cuff example follows DEFINE CLASS myObject AS CUSTOM DIMENSION oObjects[1] oObjects = .NULL. PROCEDURE INIT() LOCAL lni DIMENSION this.oObjects[3] WITH this FOR lni = 1 TO ALEN( .oObjects ) .oObjects[lni] = CREATEOBJECT('TextBox') NEXT lni ENDWITH PROCEDURE Destroy WITH THIS FOR lni = 1 TO ALEN( .oObjects ) .oObjects[lni] = .NULL. NEXT lni .oObjects = .NULL. ENDWITH ENDPROC ENDPROC ENDDEFINENote the destroy method. It's very important to set the object elements to .NULL. before you destroy the parent object, or you'll be left with orphan object references and the form won't release.