Public Class Form1
'Programmer: Janet Joy
    Private Sub BtnColor_Click(sender As System.Object, e As System.EventArgs) Handles BtnColor.Click
	    'User clicks button. Ask if the y like red, if so make form red
        Dim Answer As MsgBoxResult
        Answer = MessageBox.Show("Do you like red?", "Color", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Answer = MsgBoxResult.Yes Then
            Me.BackColor = Color.Red
        Else
            Me.BackColor = Color.Blue
        End If
    End Sub
End Class