How do I set the case for a button menu sub item

I have added keys to the sub items on the button but case
will not pick them up

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "Key1"
            MsgBox "Add 'Key1' button code."
        Case "Key1Sub1"
            MsgBox "Add 'Key1Sub1' button code."

    End Select

End Sub

Works like this incase anyone wants to use it

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

    On Error Resume Next
    Select Case Button.Key
        Case "Button1"
            MsgBox "Add 'Left' button code."

    End Select

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As
MSComctlLib.ButtonMenu)
   Select Case ButtonMenu.Key
        Case "Button1Sub1"
            MsgBox "Add 'Button1Sub1' button code."
        Case "Button1Sub2"
            MsgBox "Add 'Button1Sub2' button code."
        Case "Button1Sub3"
            MsgBox "Add 'Button1Sub3' button code."
        Case "Button1Sub4"
            MsgBox "Add 'Button1Sub4' button code."
   End Select
End Sub

========================

thoughts were released on Wed, 4 Aug 1999 02:09:24
-0400 bearing the following fruit:

ToolBar_ButtonMenuClick

Drac