Скриншот PictureBox без областей окна - Visual Basic .NET

Формулировка задачи:

Доброе время суток вам. На форме есть PictureBox1 и Label1, Label2 (это кнопки: сохранить и снимок) PictureBox1 сделан прозрачный на форме см скрин. Делаю скриншот выходит так: Как это убрать? То есть чтоб снимок получался без интерфейса и рамок программы. Вот кусок кода:

    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

Вот сделанный снимок: Код брал с этого форума. Суть программы; делать скриншот в рамке (рамку можно растягивать) Заранее спасибо.

Решение задачи: «Скриншот PictureBox без областей окна»

textual
                            Листинг программы 
                        

                            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
                        