Private Sub ChangeFontSize(ByVal Sender As Object, ByVal e As RoutedEventArgs)
fsize = btn3.FontSize
If (fsize = 16.0) Then
btn3.FontSize = 10.0
btn3.Content = "FontSize"
Else
btn3.FontSize = 16.0
btn3.Content = "Control font size changes from 10 to 16."
End If
End Sub