PREVWIN")
      .IconIndex("&amp;More Windows...") = ilsIcons.ItemIndex("MOREWINS")

      .IconIndex(mnuHelp(0).Caption) = ilsIcons.ItemIndex("HELP")

   End With
   mnuFile_Click 0
   
End Sub

Private Sub mnuFile_Click(Index As Integer)
   Select Case Index
   Case 0
      Dim f As frmMDIChild
      Set f = New frmMDIChild
      f.Show
   Case 2
   Case 3
   Case 4
   Case 6
   Case 7
   Case 9
   Case 11
      Unload Me
   End Select
End Sub

Private Sub mnuFileTOP_Click()
Dim bS As Boolean
   bS = Not 