by Brent w. (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (38 Votes)
Take a picture of the screen
Assumes
Found off the web
API DeclarationsDeclare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal Flags As Long, ByVal ExtraInfo As Long)
Sub ScreenToClipboard()
Const VK_SNAPSHOT = &H2C
Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
End Sub