PrintScreen

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
'On a form, add a command button and either an image control or a
'picturebox. Add the following code to the form:
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

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
'On a form, add a command button and either an image control or a

'picturebox. Add the following code to the form:

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