 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
            End If
         End With
      Next i
      
      ' Increment all the image offsets to account for the new icon
      ' direct