.ActiveForm.hwnd
      SendMessageLong lhWnd, WM_MDIMAXIMIZE, lhWndChild, 0
   Case "winMINIMISE"
      lhWnd = GetMDIClienthWnd()
      For iFrm = 0 To Forms.Count
         On Error Resume Next
         Err.Clear
         If (Forms(iFrm).MDIChild) Then
            If (Err.Number = 0) Then
               Forms(iFrm).WindowState = vbMinimized
            End If
         End If
      Next iFrm
      SendMessageLong lhWnd, WM_MDIICONARRANGE, 0, 0
   Case "winNEXT"
      On Error Resume Next
      eState = Me.A