[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم رضوان بارك الله بك على اخذك بالنصيحة وانار الله طريقك الى النجاح
بالنسبة لسؤالك تفضل هذا الكود واهم نقطة فيه هو تحويل عناصر الليست بوكس الى integer حتى يتم الجمع وان كان فيها قيم لها فاصلة عشرية غير نوع البيانات الى Double مع تعريف المتغير AA ايضا Double وكذلك دالة التحويل الى CDbl

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AA As Integer = 0
       If ListBox1.Items.Count > 0 Then
           For i As Integer = 0 To ListBox1.Items.Count - 1
               AA += CInt(ListBox1.Items(i))
           Next
           TextBox1.Text = AA
       Else
           TextBox1.Text = 0
       End If
   End Sub