With ImageList
        .ListImages.Add , "ViewIcon", Icons.Image(8001)  '
        .ListImages.Add , "ViewSmallIcon", Icons.Image(8002)  '
        .ListImages.Add , "ViewList", Icons.Image(8003)  '
        .ListImages.Add , "ViewReport", Icons.Image(8000)  '
    End With
    Set MenuBar.ImageList = ImageList
    With MenuBar.MenuItems
      Set MenuView = .Add("&Ansicht", "View")
         .Add "Folder View", "FolderView", MenuView, , ImageList.ListImages( _
           "View").ExtractIcon 
            .Add "Icon", "ViewFolderIcon", .Item("FolderView"), , "ViewIcon"
            .Add "Small Icon", "ViewFolderSmallIcon", .Item("FolderView") , , _
              "ViewSmallIcon"
            ...
    End With