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!