Thanks All!

But Sastaxi, it doesn't seem to be working. This is more-or-less what I did.

VB Code:
  1. picBuffer.Cls
  2.    
  3.     'My BitBlting
  4.  
  5.     'Imagine much code here
  6.     'displays everything
  7.  
  8.     'All I did was change the destination hDC to picbuffer.hDC from
  9.     'frmMain.hDC.  But the rest of the code is the same.
  10.  
  11.     RetVal = BitBlt(frmMain.hDC, 0, 0, 400, 600, picBuffer.hDC, 0, 0, SRCCOPY)

I made a picture box called picBuffer gave it the redraw property. Made it also the size of the form and made it invisible. Its left/top properties are both 0. As my code said I just changed all the frmMain.hDC to picBuffer.hDC. Then added the two lines you see above. What did I forget?

NOMAD