把一下代码直接复制到窗体中即可：

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
Private Const KEYEVENTF_KEYUP = &H2 

Private Sub FORM_LOAD() 
keybd_event vbKeySnapshot, 0&, 0&, 0& 
DoEvents 
SavePicture Clipboard.GetData, "c:\abc.bmp" 
End Sub