最近练习VB编程，网上找了段VB截图，不知道为什么对象错误，麻烦哪位大神给解答下
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 = 0
Const theForm = 1
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theScreen, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

运行到这句Picture1.Picture = Clipboard.GetData(vbCFBitmap)  报错