&&直接向 _SCREEN 添加控件的代码程序
* 清除 _SCREEN 上可能存在的旧控件
IF TYPE("_SCREEN.txtInput") = "O"
    _SCREEN.RemoveObject("txtInput")
ENDIF

gnVariable=0
use yourTable

* 向 _SCREEN 添加文本框控件
_SCREEN.AddObject("txtInput", "TextBox")
WITH _SCREEN.txtInput
    _SCREEN.txtInput.Visible = .T.
    _SCREEN.txtInput.Top = 50
    _SCREEN.txtInput.Left = 50
    _SCREEN.txtInput.Width = 200
    _SCREEN.txtInput.Height = 24
    .ControlSource = "gnVariable"  && 绑定到变量



* 添加按钮控件
_SCREEN.AddObject("btnClose", "CommandButton")

    _SCREEN.btnClose.Caption = "关闭"
    _SCREEN.btnClose.Top = 100
    _SCREEN.btnClose.Left = 50
    _SCREEN.btnClose.Width = 80
    _SCREEN.btnClose.Height = 30
    _SCREEN.btnClose.Visible = .T.


    PROCEDURE _SCREEN.btnClose.Click
      _SCREEN.RemoveObject("txtInput")
      _SCREEN.RemoveObject("btnClose")
    ENDPROC


* 刷新 _SCREEN 显示
_SCREEN.Refresh()

read events




以上
    PROCEDURE _SCREEN.btnClose.Click
      _SCREEN.RemoveObject("txtInput")
      _SCREEN.RemoveObject("btnClose")
    ENDPROC
出错，不知应该怎么才正确，请哪位大咖指导一下。

是的，建立类后是可以运行了，但事件运行完后，不会退出来执行程序的下一语句。