Tool bar button menus

Hi

I Have a tool bar with dropdown buttons in it I know how to see what button is pressed but how do I tell when I have click one of the button menus? in the code below in the select statment where there is no value for case 12, 14, 16 and 20 that is where I have my dropdowns with 3 menu item in each. how do I tell what menu I have clciked

Thanks

Hugh

VB Code:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 2
        mnuNew_Click
    Case 4
        mnuOpen_Click
    Case 6
        mnuDelete_Click
    Case 8
        mnuTeach_Click
    Case 10
        mnuLogo_Click
    Case 12
      
    Case 14
    
    Case 16
        
    Case 18
        mnuCalc_Click
    Case 20
    
End Select

VB Code:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  Debug.Print ButtonMenu.Text
End Sub