Как скопировать изображение из одного DC в другое?

'Первый контекст
Public mDC As Long 
Public mBMP As Long, iBMP As Long 
Public iBG As StdPicture, hBG As Long
 
mDC = CreateCompatibleDC(Test.hdc)
mBMP = CreateCompatibleBitmap(Test.hdc, 3000, 3000)
iBMP = SelectObject(mDC, mBMP)
 
'Второй контекст
Set iBG = LoadPicture(App.Path + "\bg.jpg") 
hBG = CreateCompatibleDC(Test.hdc)
SelectObject hBG, iBG.Handle
'Копирую
BitBlt mDC, 0, 0, 2000, 2000, hBG, 0, 0, SRCCOPY
BitBlt Test.hdc, 0, 0, 1024, 768, mDC, 0, 0, SRCCOPY

    'bgBMP = CreateCompatibleBitmap(Test.hdc, 3000, 3000)
    'ibgBMP = SelectObject(bgDC, bgBMP)

    'bgBMP = CreateCompatibleBitmap(Test.hdc, 3000, 3000)
    'ibgBMP = SelectObject(bgDC, bgBMP)

BitBlt bgDC, 0, 0, 2000, 2000, hBG, 0, 0, SRCCOPY

    BitBlt dsDC, 500, 500, 15, 11, hDS, 0, 0, SRCCOPY

BitBlt bgDC, 0, 0, 2000, 2000, hBG, 500, 500, SRCCOPY
BitBlt dsDC, 500, 500, 15, 11, hDS, 0, 0, SRCCOPY

BitBlt bsDC, 500, 500, 19, 21, hBS, 0, 0, SRCCOPY
BitBlt Test.hdc, 0, 0, 1024, 768, bsDC, 0, 0, SRCCOPY

    SelectObject hBG, iBG.Handle
    SelectObject hDS, iDS.Handle
    SelectObject hBS, iBS.Handle
    SelectObject hPL, iPL.Handle
    SelectObject hSH, iSH.Handle

oIBG = SelectObject (hBG, iBG.Handle)
oIDS = SelectObject (hDS, iDS.Handle)
...

SelectObject hBG, oIBG
DeleteDc hBg
SelectObject hDS, oIDS 
DeleteDc hDS

typedef struct tagBITMAPINFOHEADER {
      DWORD biSize;
      DWORD biWidth;
      DWORD biHeight;
      WORD biPlanes;
      WORD biBitCount;
      DWORD biCompression;
      DWORD biSizeImage;
      DWORD biXPelsPerMeter;
      DWORD biYPelsPerMeter;
      DWORD biClrUsed;
      DWORD biClrImportant;
  } BITMAPINFOHEADER;