= 0
      End If
      If (iU &lt;&gt; ImageCount - 1) Then
         pEnsureKeys
      End If
      For iL = 0 To ImageCount - 1
         If m_sKey(iL) = sKey Then
            KeyExists = True
            Exit For
         End If
      Next iL
   End If
End Property
Public Property Get ItemPicture(ByVal vKey As Variant) As IPicture
Attribute ItemPicture.VB_Description = "Returns a Picture object containing an
 image in the Image List."
Dim lIndex As Long
Dim hIcon As Long
   ' Returns a StdPicture for an im