WPF VB.Net

  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  x:Class="TextDecorationExample.Window1"
  Title="TextDecoration Example"
  Width="720"
  Height="400"
  Loaded="WindowLoaded">
  
      
      The lazy dog      
  


//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media
Namespace TextDecorationExample
  Public Partial Class Window1
    Inherits Window
    Private Sub WindowLoaded(sender As Object, e As EventArgs)
      ' Fill the baseline decoration with a linear gradient brush.
      Dim myCollection As New TextDecorationCollection()
      Dim myBaseline As New TextDecoration()
      myBaseline.Location = TextDecorationLocation.Baseline
      ' Set the linear gradient brush.
      Dim myPen As New Pen()
      myPen.Brush = New LinearGradientBrush(Colors.Orange, Colors.Red, 0)
      myPen.Thickness = 3
      myBaseline.Pen = myPen
      myBaseline.PenThicknessUnit = TextDecorationUnit.FontRecommended
      ' Set the baseline decoration to the text block.
      myCollection.Add(myBaseline)
      baselineTextBlock.TextDecorations = myCollection
    End Sub
  End Class
End Namespace