For i =  0  To Picture1.ScaleHeight -  1 
    For j =  0  To Picture1.ScaleWidth -  1 
        ColorP = GetPixel(Picture1.hdc, j, i)
        C_RBG = getRGBLong(ColorP) ‘функция преобразование  к виду RBG
        Arr(k)= C_RBG
        k = k +  1 
    Next
Next 

Private Const BI_RGB =  0 &

Private 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

Private Type BITMAPINFOHEADER '40 bytes
        biSize As Long
        biWidth As Long
        biHeight As Long
        biPlanes As Integer
        biBitCount As Integer
        biCompression As Long
        biSizeImage As Long
        biXPelsPerMeter As Long
        biYPelsPerMeter As Long
        biClrUsed As Long
        biClrImportant As Long
End Type

Dim f As BITMAPINFO 'структура битмап_инфо хранит _
информацию о копируемом рисунке,  40  байтов
Dim Contain() As Byte 'массив для битов рисунка

Private Type RGBQUAD
        rgbBlue As Byte
        rgbGreen As Byte
        rgbRed As Byte
        rgbReserved As Byte
End Type
Private Type BITMAPINFO
        bmiHeader As BITMAPINFOHEADER
        bmiColors As RGBQUAD
End Type

Private Const DIB_RGB_COLORS =  0 

Function GBit ()
    With f.bmiHeader
        .biSize = LenB(f)
        .biWidth = ScaleX(Picture1.Picture.Width, vbHimetric, vbPixels)
        .biHeight = ScaleY(Picture1.Picture.Width, vbHimetric, vbPixels)
        .biPlanes =  1 
        .biBitCount =  32 
        .biCompression =  0 
        .biBitCount =  24 
        .biCompression = BI_RGB
    End With
     
    ReDim Contain( 1  To  3 ,  1  To f.bmiHeader.biWidth,  1  To f.bmiHeader.biHeight) As Byte


    GBit = GetDIBits(hdc, Picture1.Picture,  0 , f.bmiHeader.biHeight, Contain( 1 ,  1 ,  1 ), f,  0 )
     
    
End Function