Private Sub btnRed_Click(ByVal sender As System.Object, _ 
  ByVal e As System.EventArgs) Handles btnRed.Click
  Me.BackColor = Color.Red
End Sub 'btnRed_Click