ndle hFile
      
      ' Did we succeed?
      If (bFail) Then
         Err.Raise vbObjectError + 1048 + 2, App.EXEName &amp; ".cFileIcon",
          "Failed to load icon: " &amp; sFail
         ' ensure clear:
         sFile = ""
         Erase m_tIDE
         Erase m_tBits
         m_tID.idCount = 0
      Else
         ' Check for missing bit counts:
         For i = 0 To m_tID.idCount - 1
            If (m_tIDE(i).wBitCount = 0) Then
               Select Case m_tIDE(i).bColorCount
               Case 2