 .AddItem("&amp;Open..." &amp; vbTab &amp; "Ctrl+O", , , , 7, , , "Open")
      .OwnerDraw(i) = True
            
      i = .AddItem("-My Settings")
      .OwnerDraw(i) = True
      i = .AddItem("&amp;Basic Features", , , , , , , "Settings-Basic")
      .OwnerDraw(i) = True
      i = .AddItem("Add/Change Current &amp;User", , , , , , , "Settings-User")
      .OwnerDraw(i) = True
      i = .AddItem("Securi&amp;ty/Privacy", , , , , , , "Settings-Security")
      .OwnerDraw(i) = True
      i = .AddItem("P&amp;