Построение графика в PictureBox

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Graph1 = PictureBox1.CreateGraphics()
        Graph1.DrawLine(Pens.Red, 0, 0, 500, 300)
 
        Graph2 = PictureBox2.CreateGraphics()
        Graph2.DrawLine(Pens.Red, 0, 0, 500, 300)
 
        PictureBox1.Image.Save("C:\1.png")
        PictureBox2.Image.Save("C:\2.png")
 
 
    End Sub

       Dim BM As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim G As Graphics = Graphics.FromImage(BM)
        G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        G.DrawLine(Pens.Red, 0, 0, 50, 100)
        G.DrawLine(Pens.Red, 50, 100, 20, 200)
        PictureBox1.Image = BM
        BM.Save("C:\PNG.png")

        Dim BM As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Using G As Graphics = Graphics.FromImage(BM)
            G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            G.DrawLine(Pens.Red, 0, 0, 50, 100)
            G.DrawLine(Pens.Red, 50, 100, 20, 200)
            PictureBox1.Image = BM
            BM.Save("C:\PNG.png")
        End Using

G.Dispose