lhWnd, WM_MDINEXT, lhWndChild, 0
      If (eState &lt;&gt; vbMaximized) Then
         If (Me.ActiveForm.WindowState = vbMinimized) Then
            Me.ActiveForm.WindowState = vbNormal
         End If
      End If
   Case Else
      If left$(sKey, 8) = "winFORM:" Then
         iFrm = CLng(Mid$(sKey, 9))
         Forms(iFrm).ZOrder
      End If
   End Select
End Sub

Private Sub ctlPopMenu_InitPopupMenu(ParentItemNumber As Long)
Dim lIcon As Long
Dim i As Long
Dim sKey As String
Dim iCount As Long
Dim bCheck