gdi32" (ByVal HPALETTE As Long,
 ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As
 PALETTEENTRY) As Long

Private m_hPal As Long

Friend Sub ExtractToRGBQuadArray(ByRef tRGBQuad() As RGBQUAD)
   CopyMemoryRef tRGBQuad(0), m_tPal(0), m_iPalette * LenB(tRGBQuad(0))
End Sub

Friend Sub CreateFromRGBQuadArray(ByRef tRGBQuad() As RGBQUAD)
   '
   ClearUp
   m_iPalette = UBound(tRGBQuad) - LBound(tRGBQuad) + 1
   ReDim m_tPal(0 To m_iPalette - 1) As RGBQUAD
   CopyMemoryRef m_tPal(0), tRG