关于toolbar的表示！！！

Question

在编程的时候如何单独表示Toolbar工具条的第一个按钮。

Answer 1

Private Sub Command1_Click()
MsgBox Toolbar1.Buttons(1).Caption    ‘。like this
End SubPrivate Sub Form_Load()
For i = 1 To 5
Toolbar1.Buttons.Add i, Chr(64 + i), Chr(64 + i)
Next
End Sub

Answer 2

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            MsgBox Button.Index
        Case 2
            MsgBox Button.Index
    End Select
End Sub