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
            Log.write(ex.Message.ToString, cmd)
        End Try
 
    End Sub

Public Sub SaveScreen(ByVal theFile As String)
 
        Try
 
            Dim data As IDataObject
            data = Clipboard.GetDataObject()
            If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
                Using bmap As Bitmap = CType(data.GetData(GetType( _
                  System.Drawing.Bitmap)), Bitmap)
                    Me.ScreenShot_box.Image = bmap
                    Me.ScreenShot_box.Image.Save(theFile, _
                      Imaging.ImageFormat.Jpeg)
                End Using
            End If
 
        Catch ex As Exception
            Log.write(ex.Message.ToString, cmd)
        End Try
 
    End Sub