VB.NET Imaging - Add Freehand Annotation Using VB

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

     Namespace RasterEdge.Imaging.Demo.Annotation
     Public Class FreehandLineAnnotationDemo
     '
     '         * 
     '         * 
     '         *      SDK Dependency: 
     '         *              RasterEdge.Imaging.Annotation.dll
     '         * 
     '         * 
     '         

     Public Shared Sub Test()
     Try
     Dim obj As New FreeHandLineAnnotation()
     'create a new freehand line
     'set Track points
     obj.Points = New List(Of LinePoint)()
     obj.Points.Add(New LinePoint(30F, 34F))
     obj.Points.Add(New LinePoint(20.3F, 123F))
     obj.Points.Add(New LinePoint(134F, 32F))
     obj.Points.Add(New LinePoint(134F, 110F))

     'set line size
     obj.LinePen = New LinePen()
     obj.LinePen.Width = 3F
     'set line width
     'set line property 
     obj.LinePen.Brush = New AnnotationBrush()
     obj.LinePen.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
     'set line style
     obj.LinePen.Brush.Solid_Color = Color.Blue
     'set line color
     'when the track has Closed loop, set the Closed loop property as below
     obj.Fill = New AnnotationBrush()
     obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
     'set Closed loop style
     obj.Fill.Solid_Color = Color.Pink
     'ser closed loop color
     Dim folderName As String = "C:/"
     Dim img As Bitmap = obj.CreateAnnotation()
     img.Save(folderName & "FreehandLineAnnotation.png")
     Catch ex As Exception
     Debug.WriteLine(ex.Message)
     End Try
     End Sub
     End Class
     End Namespace