请教各位：我在主程序里为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

_screen.addobject('command1','myCommand')
with _
   .left=100
   .top=100
   .visible=.t.
   .caption='XX业务'
   .height=60
   .width=60
ENDWITH

DEFINE CLASS myCommand as commandbutton
    PROCEDURE click
       MESSAGEBOX("do form .\forms\XX业务")
    ENDPROC
ENDDEFINE

感谢吹版！

DEFINE CLASS command1 as click？？？