Как нарисовать полигон по указанным координатам?

Dim I As Integer
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.Click
        Dim TB As New TextBox With {.Left = 1000, .Top = I * 20 + 15, .Parent = Me, .Width = 50, .Text = g.X.ToString & ", " & g.Y.ToString}
        I += 1
    End Sub

        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim pn As New Pen(Color.DarkSlateBlue, 3)
        Dim Pol As Point() = {New Point(TextBox(I).Text - вот здесь непонятки)}
        g.DrawPolygon(pn, Pol)

Public Class Form1
    Dim I As Integer
    Dim Pol As Point() = New Point() {}
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.Click
        Array.Resize(Pol, Pol.Length + 1)
        Dim TB As New TextBox With {.Left = 1000, .Top = I * 20 + 15, .Parent = Me, .Width = 50, .Text = g.X.ToString & ", " & g.Y.ToString}
        Pol(I) = PictureBox1.PointToClient(Cursor.Position)
        I += 1
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim pn As New Pen(Color.DarkSlateBlue, 3)
        g.DrawPolygon(pn, Pol)
    End Sub
End Class

Public Class Form1
    Dim I As Integer
    Dim Pol As Point() = New Point() {}
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.Click
        Array.Resize(Pol, Pol.Length + 1)
        Dim TB As New TextBox With {.Left = 1000, .Top = I * 20 + 15, .Parent = Me, .Width = 50, .Text = g.X.ToString & ", " & g.Y.ToString}
        Pol(I) = PictureBox1.PointToClient(Cursor.Position)
        I += 1
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim pn As New Pen(Color.DarkSlateBlue, 3)
        g.DrawPolygon(pn, Pol)
        Pol = New Point() {}
        I = 0
    End Sub
End Class