Private Sub InitMenu_PopUp()
  Dim oMenu As sevMenuXp.MenuItem
 
  ' POPUP-Menü (unsichtbar in der Menüleiste)
  ' =========================================
  With MenuBar1.MenuItems
    Set oMenu = .AddPopup("MenuPopUp")
    .Add "&Neu", "pop_Neu", oMenu, , ImageList1.ListImages(6).ExtractIcon
    .Add "&Löschen", "pop_Löschen", oMenu, , ImageList1.ListImages( _
      9).ExtractIcon
    .Add "-", "", oMenu
    .Add "&Beenden", "pop_Beenden", oMenu
  End With
End Sub