Создать окно произвольной формы в виде морской звезды

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mypath As New System.Drawing.Drawing2D.GraphicsPath 
        Dim pointsA() As Point = {New Point(0, 0), New Point(40, 60), New Point(Me.Width - 100, 10)}
        mypath.AddCurve(pointsA)
        Dim pointsB() As Point = {New Point(Me.Width - 40, Me.Height - 60), New Point(Me.Width, Me.Height), New Point(10, Me.Height)}
        mypath.AddCurve(pointsB)
        mypath.CloseAllFigures()
        Me.Region = New Region(mypath)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim mypath As New System.Drawing.Drawing2D.GraphicsPath
        Dim pointsA() As Point = {New Point(350, 30), New Point(388, 182), _
                                  New Point(510, 182), New Point(410, 265), _
                                  New Point(445, 400), New Point(350, 315), _
                                  New Point(255, 400), New Point(295, 265), _
                                  New Point(200, 180), New Point(315, 180), _
                                  New Point(350, 30)}
        mypath.AddCurve(pointsA)
        mypath.CloseAllFigures()
        Me.Region = New Region(mypath)
    End Sub

   Const Pi = 3.14159
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim mypath As New System.Drawing.Drawing2D.GraphicsPath
        Dim N, R1, r2
 
        N = 6' количество лучей
        R1 = 200' радиус лучей
        r2 = 50' радиус ядра
        Dim i, k
 
        Dim pointsA() As Point
        ReDim pointsA(N * 2 + 1)
        k = 0
 
        For i = 0 To 2 * 1.1 * Pi Step 2 * Pi / N
            pointsA(k) = New Point(R1 * Cos(i) + 350, R1 * Sin(i) + 300)
            If k = 2 * N Then
                pointsA(k + 1) = New Point(R1 * Cos(0) + 350, R1 * Sin(0) + 300)
            Else
                pointsA(k + 1) = New Point(r2 * Cos(i + Pi / N) + 350, r2 * Sin(i + Pi / N) + 300)
            End If
 
            k = k + 2
        Next
        mypath.AddCurve(pointsA)
 
        Me.Region = New Region(mypath)
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = 27 Then End
    End Sub

Imports System.Math

Dim grphTemp As GraphicsPath = New GraphicsPath()
        Dim pntPath(8) As PointF
        Dim rgnSurface As Region
 
        pntPath(0) = New PointF(200, 10)
        pntPath(1) = New PointF(220, 50)
        pntPath(2) = New PointF(260, 70)
        pntPath(3) = New PointF(220, 90)
        pntPath(4) = New PointF(200, 130)
        pntPath(5) = New PointF(180, 90)
        pntPath(6) = New PointF(140, 70)
        pntPath(7) = New PointF(180, 50)
        pntPath(8) = New PointF(200, 10)
 
 
        grphTemp.AddPolygon(pntPath)
        rgnSurface = New Region(grphTemp)
        Me.Region = rgnSurface