Снимок области рабочего стола

q.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)

Imports System.Drawing.Imaging
Public Class Form2
    Dim xy1 As Point, xy2 As Point
 
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form1.Close()
    End Sub
    Private Sub Form2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Dim bmp As New Bitmap(Me.PictureBox2.Width, Me.PictureBox2.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(PictureBox2.Left, PictureBox2.Top), New Point(0, 0), New Point(PictureBox2.Width, PictureBox2.Height))
        bmp.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg", ImageFormat.Jpeg)
        MsgBox("Снимок создан") : PictureBox2.Size = New Size(0, 0)
        Me.Close()
    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InitializeComponent()
        Me.Left = 0
        Me.Top = 0
        Me.Width = Screen.PrimaryScreen.Bounds.Width
        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.BackColor = Color.Black
        Me.TransparencyKey = Color.Yellow
        Me.Opacity = 0.7
        Me.TopMost = True
        Me.Cursor = Cursors.Cross
        Me.PictureBox2.BackColor = Color.White
    End Sub
 
    Private Sub Form2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            xy2 = e.Location
            Me.PictureBox2.Location = New Point(Math.Min(xy1.X, xy2.X), Math.Min(xy1.Y, xy2.Y))
            Me.PictureBox2.Size = New Size(Math.Max(xy1.X, xy2.X) - Me.PictureBox2.Location.X, Math.Max(xy1.Y, xy2.Y) - Me.PictureBox2.Location.Y)
        End If
    End Sub
 
    Private Sub Form2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        xy1 = e.Location
    End Sub
End Class

  Dim bmp As New Bitmap(Me.PictureBox2.Width, Me.PictureBox2.Height)

 Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)

  Function скрин_D() As System.Drawing.Bitmap
        Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(PictureBox1.Left, PictureBox1.Top), New Point(0, 0), New Point(PictureBox1.Width, PictureBox1.Height))
        bmp.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg", ImageFormat.Jpeg)
        MsgBox("Снимок создан")
        PictureBox1.Size = New Size(0, 0)
        ' Form1.PictureBox1.ImageLocation = (Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg")
        ' Me.Close()
        Me.TransparencyKey = Color.GreenYellow
        Me.Width = 0
        Me.Height = 0
        Return bmp
    End Function
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        скрин_D()
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        If Me.PictureBox1.Width And PictureBox1.Height Then
            Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.CopyFromScreen(New Point(PictureBox1.Left, PictureBox1.Top), New Point(0, 0), New Point(PictureBox1.Width, PictureBox1.Height))
            '/  Save Image
            '  bmp.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg", ImageFormat.Jpeg)
            Dim SaveFileDialog1 As New SaveFileDialog()
            SaveFileDialog1.Title = "Save File"
            '  savefiledialog1.FileName = "*.jpg"
            SaveFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|GIF Files (*.gif)|*.gif|Png Files (*.png)|*.png|Wmf Files (*.wmf)|*.wmf| Tiff Files (*.tiff)|*.tiff|Bitmap Files (*.bmp)|*.bmp"
            ' If savefiledialog1.ShowDialog() = DialogResult.OK Then
            If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
                If Windows.Forms.DialogResult.OK Then
                    If SaveFileDialog1.FileName.EndsWith(".jpg") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                    ElseIf SaveFileDialog1.FileName.EndsWith(".bmp") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
                    ElseIf SaveFileDialog1.FileName.EndsWith(".png") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
                    ElseIf SaveFileDialog1.FileName.EndsWith(".gif") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
                    ElseIf SaveFileDialog1.FileName.EndsWith(".wmf") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Wmf)
                    ElseIf SaveFileDialog1.FileName.EndsWith(".emf") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Emf)
                    ElseIf SaveFileDialog1.FileName.EndsWith(".tiff") Then
                        bmp.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Tiff)
                    End If
 
                End If
            End If
            '// Save Image
            MsgBox("Снимок создан")
 
            bmp.Dispose()
            Me.BackColor = bc
            PictureBox1.Size = New Size(0, 0)
            PictureBox1.Dispose()
            ' Form1.PictureBox1.ImageLocation = (Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg")
            '   Me.Close()
            Me.Cursor = Cursors.Default
        Else
            Me.Close()
        End If
        Exit Sub
    End Sub
 
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        InitializeComponent()
        Me.Left = 0
        Me.Top = 0
        Me.Width = Screen.PrimaryScreen.Bounds.Width
        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.BackColor = Color.BlueViolet
        Me.TransparencyKey = Color.White
        Me.Opacity = 0.2
        Me.TopMost = True
        Me.Cursor = Cursors.Cross
        Me.PictureBox1.BackColor = Color.White
    End Sub