Ошибка в скриншоте

 Function ScreenshotForm() As Bitmap
        Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Return screenshot
    End Function

g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)

PictureBox2.BackColor = ScreenshotForm().GetPixel(TextBox14.Text, TextBox13.Text)

Function ScreenshotForm() As Bitmap
    Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Return screenshot
    End Using
End Function

  Public Function GetScreenShot() As Image
        bounds1 = Screen.PrimaryScreen.Bounds
      Dim screenshot As New Bitmap(bounds1.Width, bounds1.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
        Using graph As Graphics = Graphics.FromImage(screenshot)
 
            graph.CopyFromScreen(0, 0, 0, 0, bounds1.Size, CopyPixelOperation.SourceCopy) ' Сфоткать часть экрана, вписаную в Rectangle
         Return screenshot
        End Using
    End Function

 Dim bounds1 As Rectangle

Function ScreenshotForm() As Color
    Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    Using screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
            Return screenshot.GetPixel(TextBox14.Text, TextBox13.Text)
        End Using
    End Using
End Function

PictureBox2.BackColor = ScreenshotForm()

Return screenshot.GetPixel(TextBox14.Text, TextBox13.Text)

PictureBox5.BackColor = ScreenshotForm().GetPixel(TextBox5.Text, TextBox3.Text)

PictureBox5.BackColor = ScreenshotForm()

Function ScreenshotForm(text1 As string, text2 As string) As Color

Return screenshot.GetPixel(text1, text2)