Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT As Byte = 44

'This code copies the screen
'shot to the clipboard (logically)
'and then puts the picture into
'a picturebox

Clipboard.Clear
DoEvents
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
DoEvents

' Do something with the picture.
Picture1.PaintPicture Clipboard.GetData, 0, 0