Скриншот PictureBox без областей окна

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        SaveFileDialog1.Filter = "JPG|*.jpg"
        If SaveFileDialog1.ShowDialog = DialogResult.Cancel Then Exit Sub
        PictureBox2.Image.Save(SaveFileDialog1.FileName)
    End Sub
 
    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Dim b As New Bitmap(PictureBox2.Width, PictureBox2.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
        a = Graphics.FromImage(b)
        a.Clear(Color.FromArgb(13, 11, 12))
        a.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, New Size(PictureBox2.Width, PictureBox2.Height))
        PictureBox2.Image = b
    End Sub

Me.FormBorderStyle = Windows.FormBorderStyle.None

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.PictureBox2.Image = bmap
            Me.PictureBox2.Image.Save(theFile, Imaging.ImageFormat.Jpeg)
        End If
    End Function
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0)
        System.Threading.Thread.Sleep(200)
        SaveFileDialog1.Filter = "JPG|*.jpg"
        If SaveFileDialog1.ShowDialog = DialogResult.Cancel Then Exit Sub
        SaveScreen(SaveFileDialog1.FileName)
    End Sub

a.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, New Size(PictureBox2.Width, PictureBox2.Height))

a.CopyFromScreen(Me.Location.X, PictureBox2.Location.X, Me.Location.Y, PictureBox2.Location.Y, New Size(PictureBox2.Width, PictureBox2.Height))

Public Class Form1
    Dim a As Graphics
    Private Sub Label7_MouseDown(sender As Object, e As MouseEventArgs) Handles Label7.MouseDown
        Dim b As New Bitmap(PictureBox2.Width, PictureBox2.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
        a = Graphics.FromImage(b)
        a.Clear(Color.FromArgb(13, 11, 12))
        'a.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, New Size(PictureBox2.Width, PictureBox2.Height))
        a.CopyFromScreen(Me.Location.X, PictureBox2.Location.X + 0, Me.Location.Y, PictureBox2.Location.Y + 0, New Size(PictureBox2.Width, PictureBox2.Height))
        PictureBox2.Image = b
        SaveFileDialog1.Filter = "JPG|*.jpg"
        If SaveFileDialog1.ShowDialog = DialogResult.Cancel Then Exit Sub
        PictureBox2.Image.Save(SaveFileDialog1.FileName)
    End Sub
End Class

Public Class Form1
    Dim a As Graphics
    Private Sub Label7_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Label7.MouseDown
        Dim b As New Bitmap(PictureBox2.Width, PictureBox2.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
        a = Graphics.FromImage(b)
        a.Clear(Color.FromArgb(13, 11, 12))
        Dim r As Rectangle = Me.RectangleToScreen(Me.ClientRectangle)
        a.CopyFromScreen(r.X + PictureBox2.Location.X, r.Y + PictureBox2.Location.Y, 0, 0, New Size(PictureBox2.Width, PictureBox2.Height))
        PictureBox1.Image = b
        'SaveFileDialog1.Filter = "JPG|*.jpg"
        'If SaveFileDialog1.ShowDialog = DialogResult.Cancel Then Exit Sub
        'PictureBox2.Image.Save(SaveFileDialog1.FileName)
    End Sub
End Class

    Private Sub Label8_MouseDown(sender As Object, e As MouseEventArgs) Handles Label8.MouseDown
        Dim b As New Bitmap(PictureBox2.Width, PictureBox2.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
        a = Graphics.FromImage(b)
        a.Clear(Color.FromArgb(13, 11, 12))
        Dim r As Rectangle = Me.RectangleToScreen(Me.ClientRectangle)
        a.CopyFromScreen(r.X + PictureBox2.Location.X, r.Y + PictureBox2.Location.Y, 0, 0, New Size(PictureBox2.Width, PictureBox2.Height))
        PictureBox3.Image = b
        SaveFileDialog1.Filter = "JPG|*.jpg"
        If SaveFileDialog1.ShowDialog = DialogResult.Cancel Then Exit Sub
        PictureBox3.Image.Save(SaveFileDialog1.FileName)
    End Sub

Clipboard.Clear()