_sKey(lSrc)
            m_sKey(lDst) = sKeySrc
            m_sKey(lSrc) = sKeyDst
            PropertyChanged "Images"
            PropertyChanged "Size"
         End If
      End If
   End If
End Sub

Public Function Create() As Boolean
Attribute Create.VB_Description = "Clears the existing image list (if any) and
 creates a new one."
     
     ' Do we already have an image list?  Kill it if we have:
    Destroy

    'Create the Imagelist:
    m_hIml = ImageList_Create(m_lIconSizeX, m_lIconSizeY, ILC_MASK