双击窗体截屏
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_DblClick() ' 双击窗体截图
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Me.Picture, "c:\test.bmp" ' 保存图片
End Sub
