Загрузка рисунка через память

[Inferno]

Блин бьюсь с копированием и чего-то туплю. Есть 8битовый палитровый рисунок. Нужно загрузить его через память в DestHdc (PictureBox)

Код: Выделить всё


Dim compat_dc As Long

    With bm_info.bmiHeader
        .biSize = Len(bm_info.bmiHeader)
        .biWidth = ImageWidth       
        .biHeight = ImageHeight     
        .biPlanes = 1         
        .biBitCount = 8             
        .biCompression = BI_RGB
        .biSizeImage = 0       
        .biXPelsPerMeter = 0 
        .biYPelsPerMeter = 0   
        .biClrUsed = 256       
        .biClrImportant = 256
    End With
   
    CopyMemory bm_info.bmiColors(0), ImagePalette(0), 1024
   
    compat_dc = CreateCompatibleDC(&H0&)

    hDIB = CreateDIBitmap(compat_dc, bm_info.bmiHeader, CBM_INIT, ImageData(0), bm_info, DIB_RGB_COLORS)
   SelectObject compat_dc, hDIB
    StretchBlt DestHdc, 0, 0, ImageWidth , ImageHeight , compat_dc, 0, 0, ImageWidth, ImageHeight, SRCCOPY

    DeleteDC compat_dc


Что я упускаю и делаю не так?