如何截取屏幕画面

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‘theScreen则Copy整个Screen
Const theForm = 0

 

 

 

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
       DoEvents
       Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub