How to capture screen?

[Jhd.Honza]

How can I simulate a PrintScrn key to save a picture of screen to a file?

[Nitro]

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
 '1 is the screen. Replace it with 0 and you'll get the form
   keybd_event vbKeySnapshot, 1, 0&, 0&

   'update the clipboard before doing something else
   DoEvents

   'copy clipboard to the picturebox (vbCFBitmap = 2)

   Picture1 = Clipboard.GetData(vbCFBitmap)
   
   Clipboard.Clear
   Clipboard.SetData Picture1.Picture
End Sub

[Nitro]

Sorry! Use this line to save to a file. I only know how to save it as a BMP. If you want JPEG, search through this site and I think someone knows how to do it.

  ' PURPOSE: Save the clipboard picture
  SavePicture Clipboard.GetData(vbCFBitmap), "C:\Test.bmp"