>i know this method, but what i want to do is use coding method to declare a object event~!

DEFINE CLASS MyButton AS CommandButton
PROCEDURE Click
MESSAGEBOX('Click Event fired!')
ENDPROC
PROCEDURE DblClick
MESSAGEBOX('DblClick Event fired!')
ENDPROC
ENDDEFINE

Is this what you are looking for?