VB.NET Imaging - Create Rubber Stamp Annotation

Public Shared Function 
CreateRubberStampAnnotation(x As Single, y As Single, w As Single, h As Single, text As String, font As Font, _
    fontBrush As AnnotationBrush) As RubberStampAnnotation
End Function

Public Shared Function 
CreateRubberStampAnnotation(x As Single, y As Single, w As Single, h As Single, cornerRadius As Single, text As String, _
    font As Font, fontBrush As AnnotationBrush) As RubberStampAnnotation
End Function

Public Shared Function 
CreateRubberStampAnnotation(x As Single, y As Single, w As Single, h As Single, cornerRadius As Single, text As String, _
    font As Font, fontBrush As AnnotationBrush, outline As AnnotationPen, fill As AnnotationBrush) As RubberStampAnnotation
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 RubberStampAnnotation()

            obj.Text = "This is a Text annotation"
            'set the show text
            obj.TextFont = New Font("Arial", 12F, FontStyle.Italic)
            'set text font
            'set the property of filled font
            obj.FontBrush = New AnnotationBrush()
            obj.FontBrush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
            'set filled font style
            obj.FontBrush.Solid_Color = Color.DarkBlue
            'set filled font color
            ' set annotation size 
            obj.X = 60F
            obj.Y = 45F
            obj.Width = 40F
            obj.Height = 40F

            obj.CornerRadius = 0.1F
            'set corner radius, when the radius data is larger, the corner becomes rounder
            '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
            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
            Dim folderName As String = "C:/"
            Dim img As Bitmap = obj.CreateAnnotation()
            img.Save(folderName & "rubberstampannotation.png")
        End Sub
    End Class
End Namespace