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