&gt; 1) Then
      ' Check we don't already have it:
      For i = 0 To m_tID.idCount - 1
         With m_tIDE(i)
            If (.bHeight = nHeight) And (.bWidth = nWidth) And
             ImageColourCount(i + 1) = nColourCount Then
               ' we already have it
               Err.Raise vbObjectError + 1048 + 1, App.EXEName &amp; ".cFileIcon",
                "Icon already exists."
               Exit Function
            Else
               ' check for the last image in the icon directory:
         