Отрисовка меню у Toolbar-a с картинками

[Alexanbar]

Хотелось бы добавить картинки в меню стандартного Toolbar-а (Toolbar1.ButtonMenu ....).

Нужен пример на эту тему.

[Alexanbar]

Нашёл быстрое решение.
Берём с vbacceleraror cMenu6.dll.
Прячем собственные ButtonMenu. (Привязано к 3-й кнопке):

Public WithEvents mn As cPopupMenu


Private Sub Form_Load()
Set mn = New cPopupMenu

mn.OfficeXpStyle = True
mn.hWndOwner = Me.Toolbar1.hwnd
mn.ImageList = Me.ImageList1

mn.AddItem Toolbar1.Buttons(3).ButtonMenus(1).Text, , , , 0
mn.AddItem Toolbar1.Buttons(3).ButtonMenus(2).Text, , , , 0


End Sub

Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)
If Button.Index = 3 Then

mn.ShowPopupMenu Button.Left , Button.Height

End If
End Sub