I create a child class from 'COMMANDBUTTON' and the events/methods do not work.

the followinf code is save in a file call 'MYBUTTON.PRG'.

I load it with a 'set procedure' call and then use a .addobject
to use it.

************
DEFINE CLASS mybutton AS commandbutton
PROCEDURE Init
messagebox("Init")
ENDPROC

PROCEDURE Click
messagebox("Click")
thisform.release
ENDPROC
ENDDEFINE
*************

Is there any reason why it should allow the events to work?