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