下面的示例演示了如何从工具栏类中创建一个工具栏。当调整工具栏的大小时，visual foxpro 会重新安排按钮。当创建一个 todbar 对象时，visual foxpro 自动按添加进类定义中的次序放置这些控制，而忽略控制的 top 和 left 属性。
public tbrdesktop
tbrdesktop = createobj('mytoolbar')
tbrdesktop.show
define class mytoolbar as toolbar
add object btnbold as commandbutton
add object sep1 as separator
add object btnitalics as commandbutton
btnbold.height = 20
btnbold.width = 50
btnbold.caption = "bold"
btnitalics.height = 20
btnitalics.width = 50
btnitalics.caption = "italic"
btnitalics.fontbold = .f.
left = 1
top = 1
width = 25
caption = "desktop attributes"
procedure activate
this.btnbold.fontbold = _screen.fontbold
this.btnitalics.fontitalic = _screen.fontitalic
endproc
procedure btnbold.click
_screen.fontbold = !_screen.fontbold
this.fontbold =_screen.fontbold
endproc
procedure btnitalics.click
_screen.fontitalic = !_screen.fontitalic
this.fontitalic = _screen.fontitalic
endproc
enddefine