Lparameters showtoolbar
showtoolbar=Iif(showtoolbar,"a",Vartype(Thisform.otoolbar))
If showtoolbar#"O" And showtoolbar#"X"  &&判断工具栏对象是否创建并且不是被释放了
    Set Classlib To Toolbar Additive   &&这里的“Toolbar”是存放工具栏可视类的类库文件名
    This.otoolbar=Createobject("MyToolBar",This)   &&这里的“MyToolBar”是你定义的工具栏类名
    This.otoolbar.Show   &&显示工具栏
    This.otoolbar.Dock(0)   &&将工具栏停放至窗口的顶端
    Release Classlib Toolbar   &&释放类库文件
Endif

请问老师：

我想制作一个工具栏，要求程序运行后，它不要陈列在窗口列表之中。应如何操作？