VB实现抓图-示例代码

声明GetDC，BitBlt API

在事件里加入如下代码：

dc = GetDC(0)

sx = Form1.Picture1.Width

sy = Form1.Picture1.Height

BitBlt Form1.Picture1.hDC, 0, 0, sx, sy, dc, 0, 0, vbSrcCopy

具体的抓图，就靠你自己实现了。