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

     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 EllipseAnnotationDemo
     '
     '         * 
     '         * 
     '         *      SDK Dependency: 
     '         *              RasterEdge.Imaging.Annotation.dll
     '         * 
     '         * 
     '         

     Public Shared Sub Test()
     Try
     Dim obj As New EllipseAnnotation()
     ' set annotation size 
     obj.X = 60F
     obj.Y = 45F
     obj.Width = 156F
     obj.Height = 228F

     'set annotation edge property
     obj.OutLine = New LinePen()
     obj.OutLine.Width = 5F
     'set annotation 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.Blue
     'set annotation edge color
     'set filled shape property
     obj.Fill = New AnnotationBrush()
     obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
     'set filled shape style
     obj.Fill.Solid_Color = Color.Gray
     'set filled shape color
     'set shadow property
     obj.ShadowFill = New AnnotationBrush()
     obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
     'set shadow style
     obj.ShadowFill.Solid_Color = Color.DarkGreen
     'set shadow color
     obj.ShadowX = 20F
     'set shadow position
     obj.ShadowY = 20F
     obj.ShowShadow = True
     'show shadow or not
     Dim folderName As String = "C:/"
     Dim img As Bitmap = obj.CreateAnnotation()
     img.Save(folderName & "EllipseAnnotation.png")
     Catch ex As Exception
     Debug.WriteLine(ex.Message)
     End Try
     End Sub
     End Class
     End Namespace