用代码在表单创建一个“命令”按纽，代码如下：
 thisform.AddObject ("Com33", "commandbutton")
 with
      .Top = 20
      .Left = 10
      .Height = 25
      .Width = 40
      .Name = "Com33"
      .Caption = "确定"
      .Visible = .T.
 endwith
要在此按纽的"click"事件中实现“？ 555”，代码如何写入，请高手赐教。谢谢。

可以用BINDEVENT()绑定自定义方法。
最好自己封装一个CommandButton类来处理。
示例：
CLEAR
CLEAR ALL
_screen.AddObject("okCmd", "myCmd")

DEFINE CLASS myCmd as CommandButton
    Top = 10
    Left = 10
    Height = 25
    Visible = .T.
   
    PROCEDURE Click
        ? "555"
    ENDPROC
ENDDEFINE

PROCEDURE Click
? "555"
ENDPROC

代码什么地方出现差错，恳请帮忙指正修改一下，谢谢。

不能这样写，看看示例是怎样写Click事件的。

你这是写程序了，不是定义click！

知道最后三行代码是错误的，关键是如何修改才能达到：点击命令按纽，显示555的目的。请帮忙修改代码。

之前也提到过用BINDEVENT()，简单的可以这样：
1、自建表单新方法 Com33Click，代码：
    MESSAGEBOX(555)
   
2、在下面代码最后加多一句：   
 thisform.AddObject ("Com33", "commandbutton")
 with
      .Top = 20
      .Left = 10
      .Height = 25
      .Width = 40
      .Name = "Com33"
      .Caption = "确定"
      .Visible = .T.
 endwith

 BINDEVENT(, "Click", thisform, "Com33Click")

谢谢吹水佬版主的热心帮助，可是我目前仍使用VFP6.0,下列代码：BINDEVENT(, "Click", thisform, "Com33Click")运行不了？？？

还是之前说过的，自己封装 CommandButton 类。

1、封装在过程文件里，文件名：myClass.prg
代码：
DEFINE CLASS myCmd as CommandButton
    Top = 10
    Left = 10
    Height = 25
    Visible = .T.
   
    PROCEDURE Click
        MESSAGEBOX(555)
    ENDPROC
ENDDEFINE

2、在下面代码之前先执行：
SET PROCEDURE TO myClass.prg   

 thisform.AddObject ("Com33", "myCmd")
 with
      .Top = 20
      .Left = 10
      .Height = 25
      .Width = 40
      .Name = "Com33"
      .Caption = "确定"
      .Visible = .T.
 endwith