Private Sub Command1_Click()
'引用 Microsoft Windows Comman Controls 6.0(SP6)）
'添加菜單
'http://www./thread-70601-1-1.html
Dim i As Integer
   Dim btn As Button
  
   ' 添加五個 Button 對象到 Toolbar 控件。
   For i = 1 To 5
      Set btn = Toolbar1.Buttons.Add(Caption:=i, Style:=tbrDropdown)
      ' 添加兩個 ButtonMenu 對象到每一個Button。
         btn.ButtonMenus.Add Text:="Help"
         btn.ButtonMenus.Add Text:="Options"
         btn.ButtonMenus.Add Text:="xdgg"
         btn.ButtonMenus.Add
         
   Next i
End Sub

'也可以這樣添加菜單
'
'還可以直接Toolbar1.Buttons(1).ButtonMenus.Add Text:="Help"
 '---------在屬性中直接添加菜單----------------

設(shè)置：

http://zhidao.baidu.com/question/211109242.html
右鍵單擊toolbar控件， 屬性 --> buttons  --> 選擇你要做按鈕菜單的按鈕 -->吧style屬性設(shè)置為5tbdropdown 【選擇正確的話，點(diǎn)擊“應(yīng)用”后，可以在你的界面中看到你選的按鈕右側(cè)多了個下拉小箭頭】，然后在下邊buttonmenus欄里邊編輯你要的按鈕菜單即可。
應(yīng)用：
菜單響應(yīng) ButtonMenuClick 事件，菜單可以用事件返回的Index或Key等區(qū)分是哪個菜單提交的事件。

'-------------------------------------

Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)
'菜單下拉事件

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
'菜單點(diǎn)擊事件
Debug.Print ButtonMenu.Parent   '菜單點(diǎn)擊的是那個工具欄按鈕
Debug.Print ButtonMenu.Index    '點(diǎn)擊的是那個菜單Index
End Sub

'---------------設(shè)置工具條分割線-------------------

Toolbar的按鈕樣式為  tbrSaparator