lass the items:
        .SubClassMenu Me
                
         ' Add the icons:
        pSetIcon "OPEN", "mnuFile(0)"
        pSetIcon "SAVE", "mnuFile(1)"
   End With
   mnuFile_Click 0
End Sub
Private Sub pSetIcon( _
        ByVal sKey As String, _
        ByVal sMenuKey As String _
    )
Dim lIconIndex As Long
    lIconIndex = plGetIconIndex(sKey)
    ctlPopMenu.ItemIcon(sMenuKey) = lIconIndex
End Sub


Private Function plGetIconIndex( _
        ByVal sKey As String _
    ) As Long
    plGetIconIndex