Count
   End If
End Property
Public Property Get ImageBitCount(ByVal nIndex As Long) As Long
   ImageBitCount = m_tIDE(nIndex - 1).wBitCount
End Property
Public Property Get ImageSize(ByVal nIndex As Long) As Long
   ImageSize = m_tIDE(nIndex - 1).dwBytesInRes
End Property
Public Property Get ImageHasAlphaChannel(ByVal nIndex As Long) As Boolean
   ImageHasAlphaChannel = (m_tIDE(nIndex - 1).wBitCount &gt; 24)
End Property
Public Function RemoveImage(ByVal nIndex As Long) As Long
Dim i As Long
Dim tIDE As IC