ボタンをクリック時にピクチャボックスに線が描画されるように作りたいのですが
どうしていいかわかりません。コードは下記です。
エラーになる理由とどうすれば描画のイベントを呼び出せるか教えてください

 Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)

        Dim g As Graphics = Graphics.FromImage(canvas)

        g.DrawLine(Pens.Black, a, b, c, d)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Form1_Paint(Me, EventArgs.Empty)
    End Sub