How to Draw a star using VB.net language in Visual Studio

Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Dim StarObject As Graphics = e.Graphics
        Dim i As Integer
        Dim random As Random = New Random()
        Dim brush As SolidBrush = New SolidBrush(Color.CornflowerBlue)

        ' x and y points of the path
        Dim xPoints As Integer() = {55, 67, 109, 73, 83, 55, 27, 37, 1, 43}
        Dim yPoints As Integer() = {0, 36, 36, 54, 96, 72, 96, 54, 36, 36}

        ' create graphics path for star
        Dim star As GraphicsPath = New GraphicsPath()

        ' translate the origin to (100, 100)
        StarObject.TranslateTransform(100, 100)

        ' create star from series of points
        For i = 0 To 8 Step 2
            star.AddLine(xPoints(i), yPoints(i), xPoints(i + 1), yPoints(i + 1))
        Next

        ' close the shape
        star.CloseFigure()

        StarObject.FillPath(brush, star)

    End Sub

End Class