ctiveForm.WindowState
      lhWnd = GetMDIClienthWnd()
      lhWndChild = Me.ActiveForm.hwnd
      SendMessageLong lhWnd, WM_MDINEXT, lhWndChild, 1
      If (eState &lt;&gt; vbMaximized) Then
         If (Me.ActiveForm.WindowState = vbMinimized) Then
            Me.ActiveForm.WindowState = vbNormal
         End If
      End If
   Case "winPREVIOUS"
      On Error Resume Next
      eState = Me.ActiveForm.WindowState
      lhWnd = GetMDIClienthWnd()
      lhWndChild = Me.ActiveForm.hwnd
      SendMessageLong 