con: " &amp; sFail
         ' ensure clear:
         sFile = ""
         Erase m_tIDE
         Erase m_tBits
         m_tID.idCount = 0
      End If
   End If
   
End Function
Public Sub GetPalette(ByVal nIndex As Long, ByVal lPtrMem As Long)
Dim lOffset As Long
Dim tBMIH As BITMAPINFOHEADER
Dim lColorCount As Long
Dim tRGB As RGBQUAD
   If m_tIDE(nIndex - 1).wBitCount &lt;= 8 Then
      lOffset = Len(tBMIH)
      lColorCount = 2 ^ m_tIDE(nIndex - 1).wBitCount
      CopyMemory ByVal lPtrMem, m_tBits(nIndex 