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

Формулировка задачи:

Столкнулся с проблемой. Создал два CompitableDC:

'Первый контекст
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

Но код не работает!!! В чем проблема?! Мне необходимо скопировать рисунок из одного контекста в другой.

Решение задачи: «Как скопировать изображение из одного DC в другое?»

textual
                            Листинг программы 
                        

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