bitblt and shapes

[opus]

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?

[Mad Compie]

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

[opus]

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

[Mad Compie]

In VB5-6, use:

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

In VB3-4, use:

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

[opus]

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