it For
         End If
      Next i
      If (lR &gt; 0) And (lR &lt;= ImageCount) Then
         ItemIndex = lR
      Else
         'Err.Raise 9, App.EXEName &amp; ".vbalImageList"
         ItemIndex = -1
      End If
   End If
End Property
Public Property Get ItemKey(ByVal iIndex As Long) As Variant
   ' 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 Propert