st into an icon and returns the hIcon handle.  You must use
 DestroyIcon to free this handle."
Dim lIndex As Long
   ' Returns a hIcon for an image in the ImageList.  User must
   ' call DestroyIcon on the returned handle.
   lIndex = ItemIndex(vKey)
   If (lIndex &gt; 0) Then
      ItemCopyOfIcon = ImageList_GetIcon(m_hIml, lIndex, ILD_TRANSPARENT)
   End If
End Property
Public Sub Clear()
Attribute Clear.VB_Description = "Clears all images in the list and creates a
 new image list."
   ' Recreates the ima