VB Forum / Win API / August 2008

Hi all, I'm trying to remove 2 pictureboxes and do the work with memory
HDC's
This is what is causing my problem, whichever HDC is created first seems to
work fine
but the second HDC is just a black picture.

Sub Setup_HDCs()
   Dim MyBM As StdPicture
   Set MyBM = PictureFromDC(picShown.hDC, 0, 0, picShown.ScaleWidth,
picShown.ScaleHeight)
   HDC_Backup = CreateCompatibleDC(picShown.hDC)
   Call SelectObject(HDC_Backup, MyBM.Handle)
   HDC_Hidden = CreateCompatibleDC(picShown.hDC)
   Call SelectObject(HDC_Hidden, MyBM.Handle)
   Set MyBM = Nothing
End Sub

if I bitblt HDC_Backup I get a the correct picture BUT
if I bitblt HDC_hiddem I get a BLACK picture

If I swap the sub above around its always the second HDC that gives the
black picture.
What am I doing wrong?