我在网上找了一段代码请大家给看看
1、新建类——输入类名mytoolbar,派生于：toolbar,存储于：桌面，存储在中输入：mytoolbar,点击确定后，在工具条中加入三个command按钮。将工具栏的ShowWindow属性设置为1——最上层表单；按ctrl+W 保存
2、做表单form1,showwindow=2

3.给顶层表单添加一个自定义属性TopToolBar；
4、顶层表单init
set fault to  "c:\documents and settings\administrator\"
set path  to  桌面\
5.编辑顶层表单的Activate event,输入以下代码：

This.TopToolBar=NewObject("MyToolBar","toolbar")

This.TopToolBar.show()

This.TopToolBar.dock(0)

运行时出现：文件‘c:\documents and settings\administrator\toolbar.vcx’不存在
我找toolbar.vcx，也没找到。我该怎么做？

这是我在网上找得一位高手的，我结合自己的情况，修了一下，在vfp9.0上 运行成功，分享给大家
下面是这位高手发表时的原址：
http://www.

制作工具条并在表单中引用
1、在项目管理器 类 那个页面里新建一个类mytoolsbar,继承于toolbar,保存到C:\Documents and Settings\Administrator\桌面\vf资料\程序\文件夹下，将mytoolsbar的showwindow属性设为在顶层标单中（因为我侧程序一般都是用顶层标单，不要_screen）。
2、在运行需要有工具栏的表单之前，定义变量(这一步根据情况，可要可不要)
public omyform1,
do form  表单名 name omyform1
3、在需要调用mytoolsbar表单
init中定义全局变量 publ omytoolbar,
在需要调用mytoolbar表单的active事件中
SET DEFAULT TO 'C:\Documents and Settings\Administrator\桌面\vf资料\'
SET PATH TO 程序\
SET CLASSLIB TO  mytoolsbar  additive&&如果mylib不在默认目录下，需要写上路径
omytoolbar=createobject('mytoolsbar')
omytoolbar.show&&显示
omytoolbar.dock(0)&&停放
如果把上面一段代码写到do form 之后，则form一开始就有工具栏

4、这样，就是指工具栏上的combo1,
而在omytoolsbar上面操作omyform,可以用，omyform1.text1.value=之类的