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