With Coolbar1
  ' neue PopUpMenu-Symbolschaltfläche erstellen 
  .AddButton Öffnen", "btnOpen", 6120, cbButtonMenu
 
  ' PopUp-Menüeinträge festlegen
  With .Buttons("btnOpen")
    ' Symbol aus Symbolbibliothek verwenden
    .AddMenuButton "Access-Projekt, "mnuOpenAccess", 6805
 
    ' 2. Symbol des zugeordneten ImageList-Controls verwenden
    .AddMenuButton "Excel-Projekt", "mnuOpenExcel", 2
 
    ' Symbol aus ImageList-Control mit dem Key-Wert "word" verwenden
    .AddMenuButton "Word-Projekt", "mnuOpenWord", "word"
 
    ' externes Bildsymbol
    .AddMenuButton "Text-Dokument", "mnuOpenText", LoadPicture(App.Path & _
      "\text.ico")
  End With
End With