以下语句可以截取窗体的图像，大家可以在autoredraw属性为不同的时候截获这几种可能的窗体图片以比较一下。（请先在窗体上画一个picturebox，取名为picsave，并将其visible属性设为false，autoredraw属性设为true。再将窗体及图像框的scalemode设为3。运行该程序前请先检查picturebox的hdc是否存在，小弟在几台机子上发现即使设置了hasdc属性仍无法获得该hdc的情况。）
如小弟有错误之处欢迎来信探讨：sproll@163.com
option explicit
private declare function getdc lib "user32" (byval hwnd as long) as long
private declare function deletedc lib "gdi32" (byval hdc as long) as long
private declare function createcompatibledc lib "gdi32" (byval hdc as long) as long
private declare function createcompatiblebitmap lib "gdi32" (byval hdc as long, byval nwidth as long, byval nheight as long) as long
private declare function selectobject lib "gdi32" (byval hdc as long, byval hobject as long) as long
private declare function deleteobject lib "gdi32" (byval hobject as long) as long
private declare function bitblt lib "gdi32" (byval hdestdc as long, byval x as long, _
byval y as long, byval nwidth as long, byval nheight as long, byval hsrcdc as long, _
byval xsrc as long, byval ysrc as long, byval dwrop as long) as long
private const srccopy = &hcc0020
private sub form_click()
dim lreturn as long
dim ldc as long
