 Sample", "open", True, , , 7
         .AddMenuItem "-"
         .AddMenuItem "&amp;vbAccelerator on the Web", "vbAccelerator", , , , 42
         .AddMenuItem "&amp;About...", "About"
         lR = .AddMenuItem("Icons", "IconPopup")
         .AddMenuItem "&amp;Bob", "Bob", True, , lR, lI - 2, (optIcon(0).Value)
         .AddMenuItem "&amp;Tooth Beaver", "Beaver", , , lR, lI - 1,
          (optIcon(1).Value)
         .AddMenuItem "&amp;Stimpy", "Stimpy", , , lR, lI, (optIcon(2).Value)
         .AddMenuItem "