B containing the XOR bitmap bits
Private m_tBits() As tBits

Public Property Get IsAnIconFile(ByVal sFile As String)
Dim tID As ICONDIR
Dim tIDE() As ICONDIRENTRY
Dim hFile As Long
Dim iEntry As Long
Dim bFail As Boolean
Dim sFail As String
Dim dwBytesRead As Long
Dim lLOf As Long
    
   ' Check the signature:
   sFail = "Not an Icon File"
   hFile = CreateFile(sFile, GENERIC_READ, 0, ByVal 0&amp;, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0)
   If (hFile &lt;&gt; 0) Then
      lLOf = GetFileSize(hFile, By