bitblt and shapes

hi,
I'm still working on my old program.
This time I try to BITBLT one PictureBox onto another, that should be now problem, but...
On my first PictureBox I have a Shape which should be visible on the second PictureBox after the BITBLT. But that's seems to be a problem, WHY?

Try to use GetDC(Picture2.hWnd) instead of only Picture2.hDC.

Tried it, but I'm getting a "Sub or function unknown".
How do I declare GetDC, or is it not possible in old VB4?

In VB5-6, use:

Code:

---

Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long

---

In VB3-4, use:

Code:

---

Declare Function GetDC Lib "user" (hwnd As Integer) As Integer

---

Thank's, your VB5/6 example works for me (using VB4 32-bit)