[beep]

مجموع العناصر

كود :

Dim sum As Integer = 0
        For Each Str As String In ListBox1.Items
            sum = sum + CInt(Str)
        Next
        TextBox1.Text = sum

عدد العناصر

كود :

TextBox2.Text = ListBox1.Items.Count