Dim tBlock1 As New TextBlock()
tBlock1.Text = "TextBlock"
LayoutRoot.Children.Add(tBlock1)
...
Dim tBlock2 As New TextBlock()
Dim run1 As New Run()
run1.Text = "Text"
run1.FontFamily = New FontFamily("Arial")
run1.FontSize = 20
tBlock2.Inlines.Add(run1)
tBlock2.Inlines.Add(New LineBreak())
run1 = New Run()
run1.Text = "using Inlines"
run1.FontFamily = New FontFamily("Courier New")
run1.FontSize = 14
run1.FontWeight = FontWeights.Bold
tBlock2.Inlines.Add(run1)
LayoutRoot.Children.Add(tBlock2)