VB Snippet - Screen Capture

[James Stanich]

Public Function GetScreenCapture( _
   Optional ByVal FullScreen As Boolean = False) As Image
 
   ' Captures the current screen and returns as an Image
   ' object
 
   Dim objSK As SendKeys
 
   Dim imgCapture As Image
 
   If FullScreen = True Then
 
       ' Print Screen pressed twice here as some systems
 
       ' grab active window "accidentally" on first run
 
       objSK.SendWait("{PRTSC 2}")
 
   Else
 
       objSK.SendWait("%{PRTSC}")
 
   End If
 
   Dim objData As IDataObject = Clipboard.GetDataObject()
 
   Return objData.GetData(DataFormats.Bitmap)
 
End Function