r.Raise 9, App.EXEName &amp; ".vbalImageList"
         ItemIndex = -1
      End If
   Else
      lR = -1
      For i = 0 To ImageCount - 1
         If (m_sKey(i) = vKey) Then
            lR = i + 1
            Exit 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