ピクチャボックスに図形を重ねて描画する

Visual Basic2019 vb.netでの質問です。ボタン1を押すと、ピクチャボックスに図1を描画し、その後ボタン2を押すと図2を同じピクチャボックスに描画したいんですが、図2を描くと最初の図1が消えてしまいます。

どのように改善したらいいでしょう？

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



 Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)

 Dim g As Graphics = Graphics.FromImage(canvas)



g.DrawLine(Blackpen, 100,100,200,200)



g.Dispose()



PictureBox1.Image = Canvas



End Sub





 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click



 Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)

 Dim g As Graphics = Graphics.FromImage(canvas)



g.DrawLine(Blackpen, 200,200,300,300)



g.Dispose()



PictureBox1.Image = Canvas



End Sub

> 図2を描くと最初の図1が消えてしまいます。
> PictureBox1.Image = Canvas
額(PictureBox1)に飾っていた 絵画(Button1 で New した Canvas)を、
別の絵画(Button2 で New した Canvas)に差し替えているためです。

> どのように改善したらいいでしょう？
新たな Bitmap を毎回 New するのではなく、
以前描いた Bitmap に対して描画するようにします。

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height)

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Using g As Graphics = Graphics.FromImage(PictureBox1.Image)

            g.DrawLine(Pens.Red, 100, 100, 200, 200)

        End Using

        PictureBox1.Invalidate()

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Using g As Graphics = Graphics.FromImage(PictureBox1.Image)

            g.DrawLine(Pens.Blue, 200, 200, 300, 300)

        End Using

        PictureBox1.Invalidate()

    End Sub

End Class

魔界の仮面弁士様

ありがとうございました！