dim lbitmap as long
dim loldbitmap as long
ldc = createcompatibledc(frmautoredraw.picsave.hdc) '创建与picturebox的设备场景兼容的一内存设备场景
lbitmap = createcompatiblebitmap(frmautoredraw.hdc, frmautoredraw.scalewidth, frmautoredraw.scaleheight) '创建与窗体设备场景的cbitmap对象兼容的cbitmap对象
loldbitmap = selectobject(ldc, lbitmap) '将创建的新cbitmap对象选入内存设备场景，并保存原cbitmap对象。
lreturn = bitblt(ldc, 0, 0, frmautoredraw.scalewidth, frmautoredraw.scaleheight, frmautoredraw.hdc, 0, 0, srccopy) '将窗体上显示的图样拷贝到内存设备场景
lreturn = bitblt(frmautoredraw.picsave.hdc, 0, 0, frmautoredraw.scalewidth, frmautoredraw.scaleheight, ldc, 0, 0, srccopy) '将内存设备场景的图样拷贝到picturebox的设备场景中
savepicture frmautoredraw.picsave.image, "c:\my documents\form.bmp" '保存picturebox的图样
lbitmap = selectobject(ldc, loldbitmap) '将内存设备场景的原cbitmap对象选回内存设备场景
lreturn = deleteobject(lbitmap) '删除创建的cbitmap对象
lreturn = deletedc(ldc) '删除内存设备场景
end sub
