ion.",
         vbInformation
    End If
End Sub

Private Sub MDIForm_Load()
Dim l As Long
Dim lIndex As Long
Dim lC As Long

    With ctlPopMenu
        ' Remove the close item from the system menu:
        lC = .SystemMenuCount
        .SystemMenuRemoveItem lC
        ' Add a new about item to the system menu:
        m_lAboutId = .SystemMenuAppendItem("&amp;About...")
        
        ' Associate the image list:
        .ImageList = ilsIcons
        
        ' Parse through the VB designed menu and sub c