1).Visible = True
   mnuSub(1).Caption = "Test"
   Load mnuSub(2)
   mnuSub(2).Visible = True
   mnuSub(2).Caption = "Test2"
   Load mnuSub(3)
   mnuSub(3).Visible = True
   mnuSub(3).Caption = "-"
   Load mnuSub(4)
   mnuSub(4).Visible = True
   mnuSub(4).Caption = "Most &amp;Viewed"
   Load mnuSub(5)
   mnuSub(5).Visible = True
   mnuSub(5).Caption = "Ne&amp;west"
   Load mnuSub(6)
   mnuSub(6).Visible = True
   mnuSub(6).Caption = "-"
   Load mnuSub(7)
   mnuSub(7).Visible = True
   mnuSub(7).Caption = "