
      Erase m_tIDE
      Erase m_tBits
      m_tID.idCount = 0
   End If
End Function

Public Function AddImage(ByVal nWidth As Long, ByVal nHeight As Long, ByVal
 nColourCount As Long) As Long
Dim i As Long
Dim iItem As Long
Dim lNewImageOffset As Long
Dim tBMI As BITMAPINFOHEADER
Dim tRGBQ As RGBQUAD
Dim lPosition As Long
   
   ' Ensure the icon type is set correctly:
   m_tID.idType = IMAGE_ICON
   
   ' Adds a new icon to the image:
   If (m_tID.idCount &gt; 0) Then
      ' Check we don't already have