Index, vKey
      PropertyChanged "KeyCount"
      PropertyChanged "Keys"
   Else
      Err.Raise 9, App.EXEName &amp; ".vbalImageList"
   End If
End Property
Public Property Get KeyExists(ByVal sKey As String) As Boolean
Attribute KeyExists.VB_Description = "Returns true if the specified key is a
 member of the collection, otherwise returns false."
Dim iL As Long
Dim iU As Long
   If ImageCount &gt; 0 Then
      On Error Resume Next
      iU = UBound(m_sKey)
      If Err.Number &lt;&gt; 0 Then
         iU 