Private Sub ChangeFontWeight(ByVal Sender As Object, ByVal e As RoutedEventArgs)
If (btn5.FontWeight = FontWeights.Bold) Then
btn5.FontWeight = FontWeights.Normal
btn5.Content = "FontWeight"
Else
btn5.FontWeight = FontWeights.Bold
btn5.Content = "Control font weight changes from Normal to Bold."
End If
End Sub