WindowEx(Me.hwnd, 0, "MDIClient", vbNullString)
End Function

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 As Boolean
'Dim bFIrst As Boolean
'Dim iWInCOunt As Long
'Dim sCap As String
'
'    If (ctlPopMenu.MenuKey(ParentItemNumber) = "mnuWindowTOP") Then
'         build a window menu:
'        With ctlPopMenu
'            .ClearSubMenusOfItem ParentItemNumber
'
'            lIcon = ilsIcons.ListImages("CA