>Hi Cetin!
>

>>x = CREATEOBJECT('dad')
>>x.RELEASE
>>
>>DEFINE CLASS dad as Custom
>>	son = null
>>	PROCEDURE init
>>		this.son = CREATEOBJECT([son])
>>		this.son.dad = this
>>	ENDPROC
>>	PROCEDURE destroy
>>		MESSAGEBOX([Dad - Destroy])
>>	ENDPROC
>>	PROCEDURE release
>>		this.son = null
>>	endproc
>>ENDDEFINE
>>***--------------------------------***
>>DEFINE CLASS son as Custom
>>	dad = null
>>	PROCEDURE init
>>	ENDPROC
>>	PROCEDURE destroy
>>		MESSAGEBOX([Son - Destroy])
>>	ENDPROC
>>ENDDEFINE
>

>
>I can't intercept Release event.
>Thanks!
>P.S.: See Fabio Lunardon answer (thread #866550, message #866622). It's work very well.
>See you!

What do you mean. This works very well too. This works based on your sample and shows how you'd get rid of dangling reference. You didn't ask how to add objects to a custom class. You were asking about cycling references.
Cetin