Public Class Form1


    Dim Many As Integer = 0
    Dim total As Double = 0.0


    Private Sub BAverage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BAverage.Click
        Dim avg As Double
        avg = total / many
        Me.OResults.Items.Add("The average is " & avg)
    End Sub

    Private Sub BExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExit.Click
        Me.Close()
    End Sub

    Private Sub BClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BClear.Click
        Me.OResults.Items.Clear()
    End Sub

    Private Sub bEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bEnter.Click

    End Sub

    Private Sub BTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTotal.Click

    End Sub

    Private Sub BRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRestart.Click
        '/ Reset back to 0

        total = 0
        Many = 0

    End Sub
End Class