outId) Then
        MsgBox "vbAccelerator PopMenu component MDI demonstration.",
         vbInformation
    End If
End Sub

Private Sub MDIForm_Load()
Dim l As Long
Dim lIndex As Long
Dim lC As Long
   
   With cIM
      .attach Me.hwnd
      .ImageList = ilsIcons
      .IconIndex(mnuFile(0).Caption) = ilsIcons.ItemIndex("NEW")
      .IconIndex(mnuFile(2).Caption) = ilsIcons.ItemIndex("OPEN")
      .IconIndex(mnuFile(3).Caption) = ilsIcons.ItemIndex("SAVE")
      .IconIndex(mnuFile(6).Caption) = ilsIcons.It