Нарисовать фигуру по точкам на форме

' сам экшн
 
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
 
         Me.CreateGraphics.DrawEllipse(New Pen(Color.Red, 1), e.X, e.Y, 1, 1)
 
         a(i) = New Point(e.X, e.Y)
        
        i = i + 1
       
    End Sub
 
'инициализация переменных
 
Public Class Form1
    Public a() As Point = {New Point(0, 0)}
    Public i As Integer = 0
' действие для рисования 
 
Private Sub КриваяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КриваяToolStripMenuItem.Click
        
        Me.CreateGraphics.FillPolygon(New SolidBrush(Color.Red), a)
    End Sub

Dim pnt(50) As Point  (массив на 50 точек, можно динамический вроде сделать)
 
Me.CreateGraphics.DrawEllipse(New Pen(Color.Red, 1), e.X, e.Y, 1, 1)
        pnt(i) = New Point(e.X, e.Y)
        i = i + 1

If pnt.X = 0 And pnt.Y = 0 Then
        pnt.X = e.X
        pnt.Y = e.Y
        End If
        Me.CreateGraphics.DrawLine(New Pen(Brushes.Green, 5), pnt.X, pnt.Y, e.X, )

Public Class Form1
    Dim pnt(n) As Point
    Dim n As Integer
    Public i As Integer
 
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        ReDim Preserve pnt(n)
        pnt(i) = New Point(e.X, e.Y)
        Me.CreateGraphics.DrawEllipse(New Pen(Color.Red, 1), e.X, e.Y, 1, 1)
        n = n + 1
        i = i + 1
            End Sub
 
Private Sub КриваяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КриваяToolStripMenuItem.Click
        Me.CreateGraphics.DrawCurve(Pens.Black, pnt, 0)
    End Sub
 
    Private Sub МногоугольникToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles МногоугольникToolStripMenuItem.Click
        Me.CreateGraphics.DrawPolygon(Pens.BlueViolet, pnt)
    End Sub