Toolbar工具条的button下拉项怎用??

Question

我用了一工具栏,项目如下.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "tnew"      '新增
  Call IniTxt
Case "tedit"     '编辑   Case "tp"        '打印[这一项下拉两项(tprint,tview)}Case "texit"
  Unload Me
End Select
请问,新增的时候只要点工具条上的新增按钮就可以调入想关程序.
但如果点击[打印]项下拉的:[打印],[打印预览]这些项调用相关程序,要怎样写??

Answer 1

用这个过程
Private Sub Toolbar1_ButtonClickMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
      
      Select Case ButtonMenu.key              case "tprint"
              case"tview"
       End Select
End Sub