VB.NET : Draw Text with GDI+ .

VB Code:

Protected Overrides Sub OnPaint(ByVal e As _
System.Windows.Forms.PaintEventArgs)
        'Device Context
        Dim dc As Graphics = e.Graphics
 
        'The string we are going to write
        Dim drawString As String = "Pirate"
 
        'Font we'll use 
        Dim drawFont As New Font("Arial", 20, FontStyle.Bold)
 
        'Brush used to write the text supported with 
        'different colors 
        Dim myBrush As New Drawing2D.LinearGradientBrush(ClientRectangle, _
        Color.Yellow, Color.Blue, Drawing2D.LinearGradientMode.Horizontal)
 
        'Check FormatFlags Enums to see different drawing styles 
        'you can use.
        Dim drawFormat As New StringFormat()
        drawFormat.FormatFlags = StringFormatFlags.NoFontFallback
 
        'this explain itself 
        Dim x As Integer = 150
        Dim y As Integer = 50
 
        'Finally we apply the Drwaing on the form .
        dc.DrawString(drawString, drawFont, myBrush, _
        x, y, drawFormat)
        'Enjoy 
    End Sub