- 1).bBits(lOffset), lColorCount
       * Len(tRGB)
   End If
End Sub
Public Sub SetPalette(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 m_tBits(nIndex - 1).bBits(lOffset), ByVal lPtrMem, lColorCount
       * Len(tRGB)
   End If
End Sub
Public Function SaveIcon( _
      Op