Private Sub btnBlue_Click(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles btnBlue.Click
  Me.BackColor = btnBlue.BackColor
End Sub 'btnBlue_Click