PRIVATE o, x o = NEWOBJECT('Empty') ADDPROPERTY(o, 'FireInit') ADDPROPERTY(o, 'Name', 'O-Object') p = NEWOBJECT('Empty') ADDPROPERTY(p, 'FireInit') ADDPROPERTY(p, 'Name', 'P-Object') x = NEWOBJECT('EmptyMethods') BINDEVENT(o, 'FireInit', x, 'FireInit', 1) BINDEVENT(p, 'FireInit', x, 'FireInit', 1) CLEAR o.FireInit = [o1] p.FireInit = [p1] DEFINE CLASS EmptyMethods AS Custom PROCEDURE FireInit *!* IF TYPE('o.FireInit') = "N" *!* o.FireInit = o.FireInit + 1 *!* ELSE *!* o.FireInit = 1 *!* ENDIF lnRetVal = AEVENTS(laEvents, 0) WAIT WINDOW 'FireInit fired - Value =' ; + TRANSFORM(laEvents[1,1].FireInit) ; + '. Called from ' + laEvents[1,1].Name ENDPROC PROCEDURE Release RELEASE THIS ENDPROC ENDDEFINE