VB.NET Imaging - Add Rectangle Annotation in VB

Public Shared Function 
CreateRectangleAnnotation(x As Single, y As Single, w As Single, h As Single) As RectangleAnnotation
End Function

Public Shared Function 
CreateRectangleAnnotation(x As Single, y As Single, w As Single, h As Single, outline As AnnotationPen, fill As AnnotationBrush, _
    shadow As AnnotationBrush, shadowX As Single, shadowY As Single) As RectangleAnnotation
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 RectangleAnnotation()
            ' set annotation size 
            obj.X = 60F
            obj.Y = 45F
            obj.Width = 561F
            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 the property of filled shape

            'solid
            '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

            obj.Fill = BrushGenerator.CreateSolidBrush(Color.Maroon)

            'Hatch
            'obj.Fill = BrushGenerator.CreateHatchBrush(Color.IndianRed, Color.LightGreen, System.Drawing.Drawing2D.HatchStyle.DarkHorizontal);
            'obj.Fill.FillType = FillType.Hatch;

            'TextureBrush
            'Image loadImage = Image.FromFile("c:/SampleAnnoImg.png");
            'obj.Fill = BrushGenerator.CreateTextureBrush(loadImage, System.Drawing.Drawing2D.WrapMode.Clamp, new RectangleF(0, 0, 100, 100));

            'LinearGradient
            'obj.Fill = BrushGenerator.CreateLinearGradientBrush(Color.IndianRed, Color.LightGreen, System.Drawing.Drawing2D.LinearGradientMode.BackwardDiagonal, new RectangleF(0, 0, 100, 100));

           '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.DarkGreen
            'set shadow color
            obj.ShadowX = 10F
            'set shadow position
            obj.ShadowY = 12F
            obj.ShowShadow = True
            'show shadow or not
            Dim folderName As String = "C:/"
            Dim img As Bitmap = obj.CreateAnnotation()
            img.Save(folderName & "rectangleannotation.png")
        End Sub
    End Class
End Namespace