VB.NET Imaging - Add Polygon Annotation in VB.NET

Public Shared Function 
CreatePolygonAnnotation(points As LinePoint()) As PolygonAnnotation
End Function

Public Shared Function 
CreatePolygonAnnotation(points As LinePoint(), outline As AnnotationPen, fill As AnnotationBrush) As PolygonAnnotation
End Function

Public Shared Function 
CreatePolygonAnnotation(points As LinePoint(), outline As AnnotationPen, fill As AnnotationBrush, shadow As AnnotationBrush) As PolygonAnnotation
End Function

Public Shared Function 
CreatePolygonAnnotation(points As LinePoint(), outline As AnnotationPen, fill As AnnotationBrush, shadow As AnnotationBrush, shadowX As Single, shadowY As Single) As PolygonAnnotation
End Function

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports RasterEdge.Imaging.Annotation
Imports System.Diagnostics
Imports RasterEdge.Imaging.Annotation.Basic

Namespace annotation_trial
    Public Partial Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(sender As Object, e As EventArgs)

            Dim obj As New PolygonAnnotation()
            'set Track points
            obj.Points = New List(Of LinePoint)()
            obj.Points.Add(New LinePoint(146.4023F, 89.32969F))
            obj.Points.Add(New LinePoint(163.918F, 415.1203F))
            obj.Points.Add(New LinePoint(337.3227F, 418.6234F))
            obj.Points.Add(New LinePoint(486.2055F, 348.5609F))
            obj.Points.Add(New LinePoint(304.043F, 155.8891F))
            obj.Points.Add(New LinePoint(284.7758F, 91.08125F))
            obj.Points.Add(New LinePoint(284.7758F, 91.08125F))

            'set annotation edge property
            obj.OutLine = New LinePen()
            obj.OutLine.Width = 3F
            'set edge width
            obj.OutLine.Brush = New AnnotationBrush()
            obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
            'set annotation edge style
            obj.OutLine.Brush.Solid_Color = Color.OrangeRed
            'set annotation edge color
            'set the property of filled shape
            obj.Fill = New AnnotationBrush()
            obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
            'set filled shape style
            obj.Fill.Solid_Color = Color.OrangeRed
            'set filled shape color
            'set the property of shadow
            'obj.ShadowFill = new AnnotationBrush();
            'obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid;//set shadow style
            'obj.ShadowFill.Solid_Color = Color.Green;//set shadow color
            'obj.ShadowX = 10.0F;//set shadow position
            'obj.ShadowY = 12.0F;
            'obj.ShowShadow = true;//show shadow or not
            obj.SetTransparency(0.4F)

            Dim folderName As String = "C:/"
            Dim img As Bitmap = obj.CreateAnnotation()
            img.Save(folderName & "PolygonAnnotation.png")
        End Sub

    End Class
End Namespace