'form中放一個按鈕和一個圖片框 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 另外，注意要把form和picturebox都弄大一點，這樣方便看一些