Private Sub btnPress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPress.Click
 Dim Answer As MsgBoxResult
 Answer = MsgBox("Do you like red?", MsgBoxStyle.YesNo, "Color")
 If Answer = MsgBoxResult.Yes Then
    Me.BackColor = Color.Red
 End If
End Sub 'btnPress_Click