Private Sub ChangeBackground(ByVal Sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
If (btn.Background Is Brushes.Red) Then
btn.Background = New LinearGradientBrush(Colors.LightBlue, Colors.SlateBlue, 90)
btn.Content = "Control background changes from red to a blue gradient."
Else
btn.Background = Brushes.Red
btn.Content = "Background"
End If
End Sub