如何截取屏幕画面

事实上，这是摸拟按下Print Screen的作法

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const theScreen = 1

Const theForm = 0

Private Sub Command1_Click()

Call keybd_event(vbKeySnapshot, theForm, 0, 0)

'若theForm改成theScreen则Copy整个Screen

DoEvents

Picture1.Picture = Clipboard.GetData(vbCFBitmap)

End Sub