Private Sub ChangeColor(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles btnYellow.Click, _
      btnPink.Click, btnRed.Click, btnBlue.Click
   Me.BackColor = sender.backcolor
   Me.Text = sender.text
End Sub 'ChangeColor