下面的示例演示如何向表单中添加命令按钮。用 caption 属性可指定命令按钮上的文本以及每个按钮的快捷键的文本。cancel 属性指定一个按钮，按 esc 时选择此命令按钮。用 addobject 方法向表单 添加三个命令按钮。允许更改“线条”控制倾斜的方向或关闭表单。
frmmyform = createobject('form') &&创建一个表单
frmmyform.closable = .f. && 废止控制菜单框
frmmyform.addobject('shpline'，'line') && 向表单添加一个“线条”控制
frmmyform.addobject('cmdcmndbtn1'，'cmdmycmndbtn1') && up 命令按钮
frmmyform.addobject('cmdcmndbtn2'，'cmdmycmndbtn2') && down 命令按钮
frmmyform.addobject('cmdcmndbtn3'，'cmdmycmndbtn3') && quit 命令按钮
frmmyform.shpline.visible = .t. && 使“线条”控制可见
frmmyform.shpline.top = 20 && 指定“线条”控制行
frmmyform.shpline.left = 125 && 指定“线条”控制列
frmmyform.cmdcmndbtn1.visible =.t. && up 命令按钮可见
frmmyform.cmdcmndbtn2.visible =.t. && down 命令按钮可见
frmmyform.cmdcmndbtn3.visible =.t. && quit 命令按钮可见
frmmyform.show && 显示表单
read events && 启动事件处理
define class cmdmycmndbtn1 as commandbutton && 创建命令按钮
caption = 'slant \<up' && 命令按钮上的标题
left = 50 && 命令按钮列
top = 100 && 命令按钮行
height = 25 && 命令按钮高
procedure click
thisform.shpline.visible = .f. && 隐藏“线条”控制
thisform.shpline.lineslant ='/' && 向上倾斜
thisform.shpline.visible = .t. && 显示“线条”控制
enddefine
define class cmdmycmndbtn2 as commandbutton && 创建命令按钮
caption = 'slant \<down' && 命令按钮上的标题
left = 200 && 命令按钮列
top = 100 && 命令按钮行
height = 25 && 命令按钮高
procedure click
thisform.shpline.visible = .f. && 隐藏“线条”控制
thisform.shpline.lineslant ='\' && 向下倾斜
thisform.shpline.visible = .t. && 显示“线条”控制
enddefine
define class cmdmycmndbtn3 as commandbutton && 创建命令按钮
caption = '\<quit' && 命令按钮上的标题
cancel = .t. && 默认“取消”命令按钮 (esc)
left = 125 && 命令按钮列
top = 150 && 命令按钮行
height = 25 &&命令按钮高
procedure click
clear events && 终止事件处理，关闭表单
enddefine