private Declare Sub keybd _ event Lib " user 32 " u
(ByVal bVk作為字節，_
ByVal bScan作為字節，_
ByVal dwFlags As Long，_
ByVal dwExtraInfo As Long)
全屏:
私有子窗體_Click()
事件vbKeySnapshot，0 & amp，0 & amp，0 & amp
多項活動
我。圖片=剪貼板。GetData(vbCFBitmap)
末端接頭