Public isRed As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If isRed Then
Me.BackColor = Color.Blue
isRed = False
Else
Me.BackColor = Color.Red
isRed = True
End If
End Sub