Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
  Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Const VK_SNAPSHOT As Short = &H2CS
 
 Public Function SaveScreen(ByVal theFile As String) As Boolean
        Dim data As IDataObject
        data = Clipboard.GetDataObject()
        Dim bmap As Bitmap
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
            Me.ScreenShot_box.Image = bmap
            Me.ScreenShot_box.Image.Save(theFile, Imaging.ImageFormat.Jpeg)
        End If
    End Function
 
 
 Private Sub ScreenShot_Tick(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles ScreenShot.Tick
        Try
            Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0)
            System.Threading.Thread.Sleep(200) ' To have time to catch the 
            ' clipboard
            SaveScreen(Application.StartupPath & "/screen/" & cmd & ".jpg")
        Catch ex As Exception
 
        End Try
 
    End Sub