PrintScreenKey

Public Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte,
ByVal bScan As Byte,
ByVal dwFlags As Long,
ByVal dwExtraInfo As Long)
Public Const TheScreen = 0
Public Const TheForm = 1

Private Sub Command1_Click()

'call the Windows keybd_event sub, passing the built-in

'VB keyboard constant vbKeySnapshot (44) to the sub.

'The four parameters for keybd_event are:


'BYTE bVk 'virtual-key code

'BYTE bScan 'hardware scan code

'DWORD dwFlags 'flags specifying various function options

'DWORD dwExtraInfo 'additional data associated with keystroke


'The bScan parameter value determines what to copy...

'passing 0 (TheScreen) copies the screen, passing 1 (TheForm)

'copies the active form.


keybd_event vbKeySnapshot, TheScreen, 0&, 0&

'pause to let Windows update the clipboard


DoEvents

'retrieve the clipboard bitmap to the control (vbCFBitmap = 2)


Image1 = Clipboard.GetData(vbCFBitmap)
End Sub