nsure we read the correct colours (some header entries lie!)
   Dim tBMIH As BITMAPINFOHEADER
   CopyMemory tBMIH, m_tBits(nIndex - 1).bBits(0), Len(tBMIH)
   ImageColourCount = 2 ^ tBMIH.biBitCount
End Property
Public Property Get ImageSize(ByVal nIndex As Long) As Long
   ImageSize = m_tIDE(nIndex - 1).dwBytesInRes
End Property

Public Function RemoveImage(ByVal nIndex As Long) As Long
Dim i As Long
Dim tIDE As ICONDIRENTRY
Dim lShift As Long
Dim bFound As Boolean

   ' Removes icon at nIndex:
   If (m_tI