Sub ctlPopMenu_Click(ItemNumber As Long)
Dim sKey As String
Dim lhWnd As Long
Dim lhWndChild As Long
Dim iFrm As Long
Dim eState As FormWindowStateConstants

   sKey = ctlPopMenu.MenuKey(ItemNumber)
   Select Case sKey
   Case "winTILE"
      lhWnd = GetMDIClienthWnd()
      SendMessageLong lhWnd, WM_MDITILE, MDITILE_HORIZONTAL, 0
   Case "winCASCADE"
      lhWnd = GetMDIClienthWnd()
      SendMessageLong lhWnd, WM_MDICASCADE, 0, 0
   Case "winMAXIMISE"
      lhWnd = GetMDIClienthWnd()
      lhWndChild = Me