Как создать несколько полигонов? - Visual Basic .NET

Формулировка задачи:

Есть код:

    Dim R 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 = R * 20 + 15, .Parent = Me, .Width = 50, .Text = g.X.ToString & ", " & g.Y.ToString}
        Pol(R) = PictureBox1.PointToClient(Cursor.Position)
        R += 1
    End Sub
 
    Private Sub PictureBox1_DoubleClick(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.DoubleClick
        Dim grap As Graphics = PictureBox1.CreateGraphics
        Dim pn As New Pen(Color.DarkSlateBlue, 1)
        grap.DrawPolygon(pn, Pol)
    End Sub

Вот что делает: 1. динамически создает массив с textbox, я заполняю их, 2. при двойном клике рисуется полигон Как сделать, чтобы при двойном клике возможно было прорисовывать новый полигон? Количество - должно быть неограниченным. Сейчас при добавлении новых точек продолжает рисовать первый. Благодарю за любую помощь.

Решение задачи: «Как создать несколько полигонов?»

textual
                            Листинг программы 
                        

                            Private Sub PictureBox1_DoubleClick(ByVal sender As System.Object, ByVal g As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.DoubleClick
        Dim grap As Graphics = PictureBox1.CreateGraphics
        Dim pn As New Pen(Color.DarkSlateBlue, 1)
        grap.DrawPolygon(pn, Pol)
        Pol = New Point() {}
        R = 0
    End Sub
                        