r.Number = 0 Then
               Unload f
            End If
         End If
         Err.Clear
      Next
   Case 5
      lhWNd = GetMDIClienthWnd()
      SendMessageLong lhWNd, WM_MDINEXT, 0, 0
   Case 6
      lhWNd = GetMDIClienthWnd()
      SendMessageLong lhWNd, WM_MDINEXT, 0, 1
   End Select
End Sub

Private Sub mnuWindowTOP_Click()
Dim f As Object
Dim l As Long
   For Each f In Forms
      On Error Resume Next
      If f.MDIChild Then
         If Err.Number = 0 Then
            l = l + 1
         End