Take a picture of the screen
Original Author: Brent w.
Assumptions
Found off the web
API Declarations
Declare Sub keybd_event Lib “user32” _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal Flags As Long, ByVal ExtraInfo As Long)
Code
Sub ScreenToClipboard()
Const VK_SNAPSHOT = &H2C
Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
End Sub