age in the ImageList:
   lIndex = ItemIndex(vKey)
   If (lIndex &gt; -1) Then
      hIcon = ImageList_GetIcon(m_hIml, lIndex - 1, ILD_TRANSPARENT)
      If (hIcon &lt;&gt; 0) Then
         Set ItemPicture = IconToPicture(hIcon)
         ' Don't destroy the icon - it is now owned by
         ' the picture object
      End If
   End If
   
End Property
Public Property Get ItemCopyOfIcon(ByVal vKey As Variant) As Long
Attribute ItemCopyOfIcon.VB_Description = "Makes a copy of a specified image in
 the image li