Public Class frmbaseball

    Private Property teamname As String

    Private Sub btncompute_Click(sender As System.Object, e As System.EventArgs) Handles btncompute.Click
        Dim num1, num2, sum, avg, per As Double
        num1 = CDbl(txtwon.Text)
        num2 = CDbl(txtlost.Text)
        sum = num1 + num2
        avg = num1 / sum
        per = avg * 100
        teamname = txtname.Text
        lstresults.Items.Clear()
        lstresults.Items.Add("The " & teamname, "won: ")
        lstresults.Items.Add(CStr(per) & "% of their games")
    End Sub
End Class