Cheaty Code

Public Class Survey
    Public res1 As Integer
    Public res2 As Integer
    Public res3 As Integer
    Public res4 As Integer
    Public res5 As Integer
    Public res6 As Integer
    Public res7 As Integer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        res1 = res1 + 1
        ListBox1.Items.Add("Yes: " & res1)
        Label2.Text = "Response: Yes, yes you are!"
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        res2 = res2 + 1
        ListBox1.Items.Add("No: " & res2)
        Label2.Text = "Response: Yep"
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        res3 = res3 + 1
        ListBox1.Items.Add("Blue: " & res3)
        Label6.Text = "You win!"
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        res4 = res4 + 1
        ListBox1.Items.Add("Yellow: " & res4)
        Label6.Text = "You picked... YELLOW"
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        res5 = res5 + 1
        ListBox1.Items.Add("Red: " & res5)
        Label6.Text = "You picked... RED"
    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        res6 = res6 + 1
        ListBox1.Items.Add("5: " & res6)
    End Sub

    Private Sub Survey_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        res1 = 0
        res2 = 0
        res3 = 0
        res4 = 0
        res5 = 0
        res6 = 0
        res7 = 0

    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        res7 = res7 + 1
        ListBox1.Items.Add("5: " & res7)
    End Sub
End Class