(Me.ActiveForm Is Nothing)
   mnuFile(3).Enabled = bS
   mnuFile(4).Enabled = bS
   mnuFile(6).Enabled = bS
   mnuFile(7).Enabled = bS
   mnuFile(9).Enabled = bS
End Sub

Private Sub mnuWindow_Click(Index As Integer)
Dim lhWNd As Long
   Select Case Index
   Case 0
      Me.Arrange vbCascade
   Case 1
      Me.Arrange vbTileHorizontal
   Case 2
      Me.Arrange vbTileVertical
   Case 3
      Dim f As Object
      For Each f In Forms
         On Error Resume Next
         If f.MDIChild Then
            If Er