loTest = CREATEOBJECT("_label") BINDEVENT(loTest, 'ResetToDefault', loTest, 'ResetFired', 1) BINDEVENT(loTest, 'Caption', loTest, 'ChangeCaption', 1) WITH loTest WAIT WINDOW "Caption = " + .Caption TIMEOUT 2 .Caption = "Retest" .ResetToDefault('Caption') WAIT WINDOW "Reset Complete. Caption = " + .Caption TIMEOUT 2 ENDWITH DEFINE CLASS _label AS label PROCEDURE ResetFired LPARAMETERS tuDummy WAIT WINDOW 'ResetToDefault fired' TIMEOUT 3 ENDPROC PROCEDURE ChangeCaption WAIT WINDOW 'Caption Changed - Caption = ' + THIS.Caption TIMEOUT 3 ENDPROC ENDDEFINE>Hi,