请教：通过程序向_screen添加command，添加成功，但click不执行 。

请教各位：我在主程序里为VFP屏幕里增加一个按钮command1，添加了click事件，屏幕里能显示该按钮，但不能执行click，请问我的问题出在哪？谢谢。
_screen.addobject('command1','commandbutton')
with _
   .left=100
   .top=100
   .visible=.t.
   .caption='XX业务'
   .height=60
   .width=60
ENDWITH
DO FORM .\forms\登录
do .\forms\主菜单.mpr
READ EVENTS
DEFINE CLASS command1 as click
    PROCEDURE click
       do form .\forms\XX业务
    ENDPROC
ENDDEFINE