コードは下記です

Public Class Form1    
Private zahyou(2) As Point


Private Sub txt()

        zahyou(0).X = Val(TextBox1.Text)　

        zahyou(0).Y = Val(TextBox2.Text)

        zahyou(1).X = Val(TextBox3.Text)

        zahyou(1).Y = Val(TextBox4.Text)

        zahyou(2).X = Val(TextBox5.Text)

        zahyou(2).Y = Val(TextBox6.Text)

    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)
 　　　Call txt()
        For i As Integer = 1 To zahyou.Count - 1

            g.DrawLine(Pens.Black, zahyou(0), zahyou(1))
        Next



    End Sub

 やりたいことは2つあります

1つめは
zahyou(0).X = Val(TextBox1.Text)　
zahyou(0).Y = Val(TextBox2.Text)
　　　　　　・
　　　　　　・
　　　　　　・
　　　　　　・
を繰り返しの処理でまとめたいです


2つめは

g.DrawLine(Pens.Black, zahyou(0), zahyou(1))
g.DrawLine(Pens.Black, zahyou(1), zahyou(2))
g.DrawLine(Pens.Black, zahyou(0), zahyou(2))

　　　　　　　　　　　　　　　　　　

今は勉強のためzahyouのところを固定にしているんですけれども
これも繰り返しの処理でまとめたいです。
zahyou()←の中に何を入れていいのかわかりません。

例えば
g.DrawLine(Pens.Black, zahyou(0), zahyou(0))

ようにzahyouがかぶらないようにもしたいのですが
調べてみても思いつきませんでした。


よろしくお願いいたします。