Стирание ранее нарисованных линий

Public Class Form1
    Dim x2 As Single, y2 As Single
    Dim x1 As Single, y1 As Single
    Dim blackPen As Pen
    Dim g As Graphics
    Private Sub nach1() Handles Me.Load
        TextBox1.Text = 0
    End Sub
    Private Sub nach() Handles MyBase.Paint
 
        ' должны получить доступ к объекту, позволяющему рисовать на форме - Graphics
        ' Он передается в параметре me
        g = Me.CreateGraphics
        ' Для рисования мы используем объект Pen размера 1 пиксель чёрного цвета
        blackPen = New Pen(Color.Red, 1)
        ' Далее, мы должны задать координаты линии
        x1 = 200
        y1 = 200
        x2 = 200
        y2 = 250
        'TextBox1.Text = 0
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim gr As Double
        gr = CDbl(TextBox1.Text)
        For i As Integer = 1 To 72
            gr = gr + 5
            x2 = x1 + 150 * System.Math.Sin(gr * System.Math.PI / 180)
            y2 = y1 + 150 * System.Math.Cos(gr * System.Math.PI / 180)
            ' Рисуем линию!
            g.DrawLine(blackPen, x1, y1, x2, y2)
        Next
    End Sub
End Class

Public Class Form1
    Dim x2 As Single, y2 As Single
    Dim x1 As Single, y1 As Single
    Dim blackPen As Pen
    Dim g As Graphics
    Dim gr As Double = 200
    Private Sub nach() Handles MyBase.Paint
        ' должны получить доступ к объекту, позволяющему рисовать на форме - Graphics
        ' Он передается в параметре me
        g = Me.CreateGraphics
        ' Для рисования мы используем объект Pen размера 1 пиксель чёрного цвета
        blackPen = New Pen(Color.BlueViolet, 1)
        ' Далее, мы должны задать координаты линии
        x1 = 200
        y1 = 200
        x2 = 200
        y2 = 250
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If gr = 600 Then Timer1.Stop() : Me.Refresh()
        gr += 1
        TextBox1.Text = gr
        For i As Integer = 1 To 1
            gr = gr + 0.5
            x2 = x1 + 150 * System.Math.Sin(gr * System.Math.PI / -180)
            y2 = y1 + 150 * System.Math.Cos(gr * System.Math.PI / -180)
            ' Рисуем линию!
            g.DrawLine(blackPen, x1, y1, x2, y2)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = gr
        For i As Integer = 1 To 1
            gr = gr + 1
            x2 = x1 + 150 * System.Math.Sin(gr * System.Math.PI / -180)
            y2 = y1 + 150 * System.Math.Cos(gr * System.Math.PI / -180)
            ' Рисуем линию!
            g.DrawLine(blackPen, x1, y1, x2, y2)
        Next
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        gr -= 1
        TextBox1.Text = gr
        For i As Integer = 1 To 1
            gr = gr + 1
            x2 = x1 + 150 * System.Math.Sin(gr * System.Math.PI / -180)
            y2 = y1 + 150 * System.Math.Cos(gr * System.Math.PI / -180)
            ' Рисуем линию!
            g.DrawLine(blackPen, x1, y1, x2, y2)
        Next
    End Sub
End Class