كيف اجمع عناصر listbox

استخدم مصفوفة، و اضف البنود.

اسف على التأخير ....

سهل جدااااااااااااااااااااااا

اضف للفورم زر و مربع نص وListBox

في الفورم حدث Load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("1")
        ListBox1.Items.Add("3")
        ListBox1.Items.Add("5")
        ListBox1.Items.Add("3")
    End Sub

وفي زر حدث Click

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, sum As Integer
        For x = 0 To ListBox1.Items.Count - 1
            sum = sum + Val(ListBox1.Items.Item(x))
        Next
        TextBox1.Text = sum
    End Sub

وتحياتي لكم