Declare Function GetDIBits Lib "gdi32" ( _
ByVal aHDC As Long, _
ByVal hBitmap As Long, _
ByVal nStartScan As Long, _
ByVal nNumScans As Long, _
lpBits As Any, _
lpBI As BITMAPINFO, _
ByVal wUsage As Long) As Long
GetDIBits возвращает биты заданной аппаратно-зависимой картинки и копирует их в буфер DIB в заданном формате, независящем от устройства
В успешном случае возвращается число скопиpованных стpок pазвеpтки; 0 - если ошибка
смотри пример make_blue.zip