Private Sub CopyGraphics()
Dim srcPic As Graphics = pnl.CreateGraphics
Dim srcBmp As New Bitmap(pnl.Width, pnl.Height, srcPic)
Dim srcMem As Graphics = Graphics.FromImage(srcBmp)
Dim HDC1 As IntPtr = srcPic.GetHdc
Dim HDC2 As IntPtr = srcMem.GetHdc
BitBlt(HDC2, 0, 0, pnl.Width, pnl.Height, HDC1, 0, 0, 13369376)
pnlDraw.BackgroundImage = srcBmp
'Clean Up code omitted...
End Sub