Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Tag

 Case Is = "1"

 Call kod1

End Select

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Tag

 Case Is = "1"

 Call kod2

End Select

End Sub

Sub kod1()

 MsgBox "1. kod çalıştı"

End Sub

Sub kod2()

 MsgBox "Alt menü çalıştı"

End Sub

Private Sub UserForm_Activate()

With Toolbar1 'Toolbarın imagelistine imagelist1 e yüklenen 1. ikon ekleniyor

.ImageList = ImageList1

.Buttons(1).Image = 1

'.Buttons(2).Image = 2 'varsa 2. ikon

End With

End Sub