Toolbar - responding to button selection

Private Sub  Toolbar1_ButtonClick( ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "selectfolder"
            If ToolBar.Buttons( "selectfolder" ).Value = tbrPressed Then
                'Do something
            End If
        Case "copylist"
             'Do a copy thing
        Case "email"
             'Do an email thing
   End Select
End Sub