[أبو خالد الشكري]

بعد إذن الأستاذ إبراهيم

أنا عندي كود مختصر قليلا ، ويعطي نفس النتيجة ،

وهذا هو ..  

كود :

       Dim myNumber As Integer = 0

       For I = myNumber To ListBox1.Items.Count - 1
           myNumber = myNumber + ListBox1.Items(I)
       Next

       TextBox1.Text = myNumber