


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vbkey As Int16) As Int32
Dim Hotkey1 as Boolean Hotkey1 = GetAsyncKeyState(Keys.Home)
If Hotkey1 = True Then 'Take Screen Shot End If


'' Assumes you want the primary screen
Public Shared Function GetScreenShot() As Bitmap
Dim _rtnBmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
Dim _gr As Graphics = Graphics.FromImage(_rtnBmp)
_gr.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
_gr.Dispose()
Return _rtnBmp
End Function

keep it up and in next version ADD screenshot