Как в цикле нарисовать новую линию между двумя объектами

Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\DB_RSMU.accdb") ' Переменная для подключения базы
    Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
    Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
    Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
Private Sub TabPage5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage5.Click
        Dim massPocX(2000) As String
        Dim massPocY(2000) As String
        Dim Name(2000) As String
        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Site_name_Khujand]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Con.Close() ' Закрываем соединение
        ' распологаем  кнопки на форме
        For i As Integer = 0 To DT.Rows.Count - 1
            Static Ind As Integer 'Статическая переменная-счетчик 
            Dim Btn As New Button
            massPocX(i) = Me.DT.Rows(i).Item(7)
            massPocY(i) = Me.DT.Rows(i).Item(6)
            Name(i) = Me.DT.Rows(i).Item(2)
            With Btn
                .Top = massPocX(i)
                .Left = massPocY(i)
                .Width = 16
                .Height = 16
            End With
            Dim Lb As New Label
            Me.TabPage5.Controls.Add(Lb)
            With Lb
                .Top = massPocX(i) - 25
                .Left = massPocY(i) - 10
                .Text = Name(i)
            End With
            AddHandler Btn.Click, AddressOf Btn_Click 'Привязываем кнопку к событию
            Me.TabPage5.Controls.Add(Btn) 'Показываем кнопку
            Ind += 1 'Увеличиваем счетчик на единицу
        Next
    End Sub

 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseClick
 
 
        Dim z As New System.Windows.Forms.PaintEventArgs
 
        ' Он передаётся в параметре e:
        Dim g As Graphics = z.Graphics
        ' Для рисования мы используем объект Pen размера 1 пиксель чёрного цвета
        Dim blackPen As New Pen(Color.Black, 1)
        ' Далее, мы должны задать координаты линии
        Dim x1 As Single = 100
        Dim y1 As Single = 50
        Dim x2 As Single = 100
        Dim y2 As Single = 550
        ' Рисуем линию!
        g.DrawLine(blackPen, x1, y1, x2, y2)
    End Sub

        Dim BM As New Bitmap(Width, Height)
        Dim Pts As New List(Of Point)
        For Each B As Control In Me.Controls
            If TypeOf B Is Button Then
                Dim Tmp As Point = New Point(B.Width / 2 + B.Left, B.Height / 2 + B.Top)
                Pts.Add(Tmp)
            End If
        Next
        Pts.Add(Pts(0))
        Dim G As Graphics = Graphics.FromImage(BM)
        G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        G.DrawLines(New Pen(Color.Green, 3), Pts.ToArray)
        Me.BackgroundImageLayout = ImageLayout.None
        Me.BackgroundImage = BM

G.TabPage1.DrawLines(New Pen(Color.Green, 3), Pts.ToArray)