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