【VB.NET】【WPF】TextBlock にプログラムコードで Hyperlink を設定する

C# で xaml で TextBlock に Hyperlink を設定するサンプルはたくさん見つかるけれど～、

VB.NET でしかもプログラムコードで設定するサンプルはほとんど見つからなかったので～、

ご参考までにどうゾ～。

'テキストブロックを初期化
oTextBlock.Inlines.Clear

'ハイパーリンクを設定
Dim oHyperlink As New Hyperlink

'下線表示を消す
oHyperlink.TextDecorations = Nothing

'URI を設定
oHyperlink.NavigateUri = New Uri("https://elleneast.com")

'.NavigateUri を設定しただけではクリックしたときにジャンプしない。ジャンプを実行するためのイベントをラムダ式で設定。
AddHandler oHyperlink.RequestNavigate, Sub(sender, e) System.Diagnostics.Process.Start(e.Uri.ToString)

'フォーカスを受け取らないようにする（点線で囲まれないようにする）。
oHyperlink.Focusable = False

'ハイパーリンクにテキストを設定
oHyperlink.Inlines.Add("エレン・イーストのブログ")

'テキストブロックにハイパーリンクを追加。
oTextBlock.Inlines.Add(oHyperlink)

'oTextBlock.Text = "(^^)" 'Text を設定するとハイパーリンクの設定は破棄される