Private Sub btnPress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPress.Click
  MsgBox("Press to change to red", MsgBoxStyle.OKOnly, "RED")
  Me.BackColor = Color.Red
End Sub 'btnPress_Click