                     End If
                  Next iEntry
               Else
                  bFail = True
               End If
            Else
               bFail = True
            End If
         Else
            bFail = True
         End If
      Else
         bFail = True
      End If
      CloseHandle hFile
   Else
      sFail = "Could not read from file"
   End If
   IsAnIconFile = Not (bFail)
End Property


Public Sub CloneTo(ByRef cThis As cFileIcon)
   cThis.CloneFrom m_sFile, m_vID, m_tID, m