DEFINE CLASS dad as Custom PROCEDURE init() this.AddObject("son",[son]) ENDPROC PROCEDURE destroy() MESSAGEBOX([Dad - Destroy]) ENDPROC ENDDEFINE