Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Public Class Form1

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        'Create a Graphics object
        Dim g As Graphics = Me.CreateGraphics()
        g.Clear(Me.BackColor)
        Dim text As String = "Testing GDI+ Text and Font" & "functionality for alignment and trimming."

        'Create font families
        Dim arialFamily As New FontFamily("Arial")

        'Construct font objects
        Dim VerdanaFont As New Font("Verdana", 10, FontStyle.Bold)
        Dim arialFont As New Font(arialFamily, 16)

        'Create rectangles
        Dim rect1 As New Rectangle(10, 10, 100, 150)
        Dim rect2 As New Rectangle(10, 165, 150, 100)

        'Construct string format and alignment
        Dim strFormat1 As New StringFormat()
        Dim strFormat2 As New StringFormat()

        'Set alignment, line alignment, and trimming properties of a string
        strFormat1.Alignment = StringAlignment.Center
        strFormat1.LineAlignment = StringAlignment.Center
        strFormat1.Trimming = StringTrimming.EllipsisCharacter
        strFormat2.Alignment = StringAlignment.Far
        strFormat2.LineAlignment = StringAlignment.Near
        strFormat2.Trimming = StringTrimming.Character

        'Draw GDI+ objects
        g.FillEllipse(New SolidBrush(Color.Blue), rect1)
        g.DrawRectangle(New Pen(Color.Black), rect2)
        g.DrawString(text, VerdanaFont, New SolidBrush(Color.White), rect1, strFormat1)
        g.DrawString(text, arialFont, New SolidBrush(Color.Red), rect2, strFormat2)

        'Disposes of objects
        arialFont.Dispose()
        VerdanaFont.Dispose()
        arialFamily.Dispose()
        g.Dispose()
    End Sub
End Class