>CLEAR >oRef = CREATEOBJECT("voo") >?oRef.Kid.TAG > > >DEFINE CLASS voo AS CUSTOM > ADD OBJECT oChild AS CUSTOM; > WITH name = "Kid", TAG= "KidTAG" > PROCEDURE INIT > BINDEVENT(THIS.Kid, "TAG" , THIS , "MYTAG",3) > ENDPROC > PROCEDURE MYTAG > RETURN "ParentTag" > ENDPROC >ENDDEFINE >