", , mcWEBSITE, i, 38, , , "http://www.icq.com/"
      .AddItem "I Drink - The Drink Mixing Website", , mcWEBSITE, i, 38, , ,
       "http://www.idrink.com/"
      .AddItem "Dave's Classics", , mcWEBSITE, i, 38, , ,
       "http://www.davesclassics.com/"
      
      i = .AddItem("-")
      .OwnerDraw(i) = True
      i = .AddItem("&amp;Close", , , , , , , "Close")
      .OwnerDraw(i) = True
   End With
   
   ' Now prepare the side bar.
   
   ' Firstly, evaluate the menu item's height in the main menu:
   