Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, _
				X As Single, Y As Single)
Dim nButton As Button
    If Button = vbLeftButton Then
        For Each nButton In Toolbar1.Buttons
            With nButton
            Select Case X
                Case .Left To .Left + .Width
                Select Case Y
                    Case .Top To .Top + .Height
                        MsgBox nButton.Caption 'oder nButton.Key...
                        Exit For
                    End Select
                End Select
            End With
        Next
    End If
End Sub