
Attribute ItemKey.VB_Description = "Returns the key for an image with the
 specified index."
   ' Returns the Key for an image:
   If (iIndex &gt; 0) And (iIndex &lt;= ImageCount) Then
      ItemKey = m_sKey(iIndex - 1)
   Else
      Err.Raise 9, App.EXEName &amp; ".vbalImageList"
   End If
End Property
Public Property Let ItemKey(ByVal iIndex As Long, ByVal vKey As Variant)
   ' Sets the Key for the an image:
   If (iIndex &gt; 0) And (iIndex &lt;= ImageCount) Then
      iIndex = iIndex - 1
      SetKey i