我自己设计了一个窗体，怎么能在工具栏上放一个按钮打开我的窗体呢？免得每次都要到高级那里去打开？

方法1：添加菜单，例如下面的代码

\'下面函数可以在扩展菜单中插入指定菜单内容

\'Sub MENU_Show()
\'    call Menu.AddMenu(0, 4, "红牛决策")
\'    call Menu.AddMenu(1, 5, "大盘买点")
\'    call Menu.AddMenu(2, 6, "龙头出水")
\'    call Menu.AddMenu(3, 7, "财富通道")
\'    call Menu.AddMenu(4, 8, "短线通道")
\'    call Menu.AddMenu(5, 0, "波段多空")
\'    call Menu.AddMenu(6, 1, "财富波段")
\'    call Menu.AddMenu(7, 2, "极限顶底")
\'    call Menu.AddMenu(8, 3, "趋势转折线")   
\'End Sub

\'下面函数用来相应单击扩展菜单中的命令
\'Sub MENU_Command(Cmd)
\'     set MainFrame = Application.ActivateFrame("MainFrame")
\'    set Grid = MainFrame.ActiveGrid
\'    Select Case Cmd
\'    Case 0
\'        Grid.InsertFormula("BDDK")
\'    Case 1
\'        Grid.InsertFormula("CFBD")
\'    Case 2
\'        Grid.InsertFormula("JXDD")
\'    Case 3
\'        Grid.InsertFormula("QSZZX")
\'    Case 4
\'         Grid.InsertFormula("HNJC")
\'    Case 5
\'        Grid.InsertFormula("INDEXBUY")
\'    Case 6
\'         Grid.InsertFormula("Ltcs")
\'    Case 7
\'         Grid.InsertFormula("cftd")
\'    Case 8
\'         Grid.insertformula("dxtd")
\'    End Select
\'End Sub

扩展菜单在默认情况下在工具菜单－》扩展 中。

你还可以在工具－》自定义菜单 中，更改该扩展菜单的位置，例如拖到工具栏中。

方法2：使用快捷键，例如

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=4886

这里对 SHIFT+F12的 处理