Private Declare Function GdipCloneImage Lib "D:\Programs\Microsoft Office\OFFICE11\gdiplus" ( _
   ByVal nImage As Long, nCloneImage As Long) As GpStatus
Private Enum PaletteFlags
  PaletteFlagsHasAlpha =  1 
  PaletteFlagsGrayScale =  2 
  PaletteFlagsHalftone =  4 
End Enum
Private Type ColorPalette
   Flags As PaletteFlags   ' Palette flags
   Count As Long           ' Number of color entries
   Entries As Long         ' Palette color entries; this CAN be an array!!!! (Use CopyMemory and a string or byte array as workaround)
End Type

'===================== GDI+ 1.1 ========================
Private Enum DitherType
   DitherTypeNone =  0 
   DitherTypeSolid =  1 
   DitherTypeOrdered4x4 =  2 
   DitherTypeOrdered8x8 =  3 
   DitherTypeOrdered16x16 =  4 
   DitherTypeOrdered91x91 =  5 
   DitherTypeSpiral4x4 =  6 
   DitherTypeSpiral8x8 =  7 
   DitherTypeDualSpiral4x4 =  8 
   DitherTypeDualSpiral8x8 =  9 
   DitherTypeErrorDiffusion =  10 
End Enum
Private Enum PaletteType
  PaletteTypeCustom =  0 
  PaletteTypeOptimal =  1 
  PaletteTypeFixedBW =  2 
  PaletteTypeFixedHalftone8 =  3 
  PaletteTypeFixedHalftone27 =  4 
  PaletteTypeFixedHalftone64 =  5 
  PaletteTypeFixedHalftone125 =  6 
  PaletteTypeFixedHalftone216 =  7 
  PaletteTypeFixedHalftone252 =  8 
  PaletteTypeFixedHalftone256 =  9 
End Enum
Private Declare Function GdipBitmapConvertFormat Lib "D:\Programs\Microsoft Office\OFFICE11\gdiplus" ( _
   ByVal nBitmap As Long, ByVal PixelFormat As PixelFormats, _
   ByVal DitherType As DitherType, ByVal PaletteType As PaletteType, _
   ByVal nPalette As Long, ByVal alphaThresholdPercent As Single) As GpStatus
Private Declare Function GdipInitializePalette Lib "D:\Programs\Microsoft Office\OFFICE11\gdiplus" ( _
   ByVal nPalette As Long, ByVal PaletteType As PaletteType, _
   ByVal optimalColors As Long, ByVal useTransparentColor As BOOL, _
   ByVal nBitmap As Long) As GpStatus

Public Sub TestConvertFormat(ByVal FileName As String)
 Dim nBitmap As Long
 Dim EncoderCLSID As GUID
 If m_nBitmap =  0  Then Exit Sub
 GdipExec GdipCloneImage(m_nBitmap, nBitmap)
 Dim Pal( 0  To  3 ) As Long
 'Pal(0) = ColorPalette.Flags
 'Pal(1) = ColorPalette.Count
 'Pal(2) = ColorPalette.Entries(0)
 'Pal(3) = ColorPalette.Entries(1)
 'И т. д. для предопределённых палитр вроде PaletteTypeFixedHalftone27 или
 'PaletteTypeFixedBW поля Entries заполняются вызовом GdipInitializePalette()
 Pal( 1 ) =  2 
 GdipExec GdipInitializePalette(VarPtr(Pal( 0 )), PaletteTypeFixedBW, _
                                 0 , FALSE_BOOL,  0 )
 GdipExec GdipBitmapConvertFormat(nBitmap, PixelFormat1bppIndexed, _
                                   9 , _
                                  PaletteTypeFixedBW, _
                                  VarPtr(Pal( 0 )),  0 )
 If GetEncoderCLSID("image/tiff", EncoderCLSID) >=  0  Then _
    GdipExec GdipSaveImageToFile(nBitmap, StrPtr(FileName), EncoderCLSID, _
                                 ByVal  0 &)
 GdipExec GdipDisposeImage(nBitmap): nBitmap =  0 
End Sub

 gpsRes = GdipCreateImageAttributes(pImgAttr)
 'Телевизионное преобразование (Y компонента)
 cm( 0 ,  0 ) =  0 . 299 !: cm( 1 ,  0 ) =  0 . 299 !: cm( 2 ,  0 ) =  0 . 299 !
 cm( 0 ,  1 ) =  0 . 587 !: cm( 1 ,  1 ) =  0 . 587 !: cm( 2 ,  1 ) =  0 . 587 !
 cm( 0 ,  2 ) =  0 . 114 !: cm( 1 ,  2 ) =  0 . 114 !: cm( 2 ,  2 ) =  0 . 114 !
 cm( 3 ,  3 ) =  1 !: cm( 4 ,  4 ) =  1 !
 gpsRes = GdipSetImageAttributesColorMatrix(pImgAttr, ColorAdjustTypeBitmap, _
                                             1 , cm( 0 ,  0 ), ByVal  0 &, _
                                            ColorMatrixFlagsSkipGrays)
 
 gpsRes = GdipDrawImageRectRectI(gpgSrc, gpiSrc,  0 ,  0 , nSrcWidth, nSrcHeight, _
                                  0 ,  0 , nSrcWidth, nSrcHeight, UnitPixel, _
                                 pImgAttr,  0 ,  0 )