
End Sub
Public Sub Invert()
Dim tRGBOut(0 To 256) As RGBQUAD
Dim lC As Long, i As Long
   lC = GetDIBColorTable(m_hDC, 0, 256, tRGB(0))
   Debug.Assert (lC = 256)
   For i = 0 To lC
      tRGBOut(i).rgbBlue = (&amp;HFF Xor tRGB(i).rgbBlue)
      tRGBOut(i).rgbGreen = (&amp;HFF Xor tRGB(i).rgbGreen)
      tRGBOut(i).rgbRed = (&amp;HFF Xor tRGB(i).rgbRed)
   Next
   lC = SetDIBColorTable(m_hDC, 0, 256, tRGBOut(0))
   Debug.Assert (lC = 256)
   
End Sub

Public Sub CopyPalette(ByRef cDIB As cDIBSection256)
Di