Public Property Get KeyExists(ByVal sKey As String) As Boolean
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 = 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 I