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