Добавьте графическую линию на форму

---

У меня есть код, который может генерировать ряд прямых линий в форме в VB 2010. Он работает таким образом, что вы указываете количество строк в текстовом поле, которое хотите создать в форме. Это создаст только половину линий. Но есть еще одна кнопка, которая будет увеличивать одну строку за раз ниже группы строк, созданных ранее, и ПЕРЕМЕЩАЕТ все строки вверх. например: я ввел 16 в текстовое поле: он будет генерировать только 8 строк. Затем я нажимаю вторую кнопку, чтобы добавить остальные 8 строк под ранее созданными строками ОДИН ЗА ОДНОЙ с каждым щелчком, и это также будет перемещать строки вверх. Означает, что начальная точка линии будет такой же, и она будет перемещать линии вверх от этой точки одну за другой, пока не достигнет 16.
Пока что код, который у меня есть, находится ниже. Проблема в том, что я не могу увеличить строки нажатием второй кнопки. Ваша быстрая реакция будет оценена по достоинству...... Спасибо и С наилучшими пожеланиями VB_Learner

[Edit] добавлен комментарий от OP
Проблема в том, что я не могу увеличивать строки одну за другой от нажатия второй кнопки.
[/Редактировать]

Что я уже пробовал:

Public Class Form1
Private Xstart As Integer
Private Ystart As Integer
Private Xend As Integer
Private Yend As Integer

Dim graphicsfun As Graphics
Dim pencolor As New Pen(Color.Navy, 1)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    graphicsfun = Me.CreateGraphics

    graphicsfun.Clear(Color.White)

    Xstart = 50
    Ystart = 100
    Xend = 250
    Yend = 50

    Dim i As Integer



    For i = 0 To (Val(Me.TextBox1.Text) / 2) - 1

        graphicsfun.DrawLine(pencolor, Xstart + 150, i * (-Ystart) + 700, Xend + 150, i * (-Yend) + 700)

        Ystart = +8
        Yend = +8
    Next
End Sub

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


    Dim rollon As Integer
    Dim iter As Integer
    For iter = 0 To (Val(Me.TextBox1.Text) / 2) - 1
        For rollon = 1 To (Val(Me.TextBox1.Text) / 2) - 1

            graphicsfun.DrawLine(pencolor, Xstart + 150, rollon * (-Ystart) + 700 + (Ystart), Xend + 150, rollon * (-Yend) + 700 + (Yend))

            Ystart = +8
            Yend = +8

        Next

    Next




End Sub

---