WPF VB.Net Tutorial

  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)
      Dim myCollection As New TextDecorationCollection()
      Dim myUnderline As New TextDecoration()
      myUnderline.Location = TextDecorationLocation.Underline
      ' Set the solid color brush.
      myUnderline.Pen = New Pen(Brushes.Red, 1)
      myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended
      ' Set the underline decoration to the text block.
      myCollection.Add(myUnderline)
      underlineTextBlock.TextDecorations = myCollection
    End Sub
  End Class
End Namespace