列表框VB 2015的最小值

Question

我需要帮助计算列表框中的最低等级我有它工作但我忘了我做了什么也忘了保存现在它没有做任何事情只是输出0

Private Sub btncalc_Click(sender As Object, e As EventArgs) Handles btncalc.Click

    For i As Integer = 0 To lstgrade.Items.Count - 1
        sum = sum + CInt(lstgrade.Items(i))

        If lstgrade.Items(i) < 100 Then
            min = lstgrade.Items(i)
        Else


        End If
    Next

    avg = sum / lstgrade.Items.Count
    txtlow.Text = min
    txtavg.Text = CStr(avg)