جمع اعداد لیست باکس

[xrezax]

یک لیست باکس دارم به این صورت
11
22
33
44
55
66
77
88

حالا می خوام دو به دو با هم جمع بشن و توی یک تکست کنار برنامه سیو بشن به این صورت

11
22
----
33

****
33
44
---
77

****
55
66
---
...
..
.

الی آخر ( اینا خروجی هستن که توی تکست سیو می شن به این شکل باشن ) یعنی هر دوتا عدد بصورت جداگانه باهم جمع بشوند.

[_behnam_]

با این کد کارت را میوفته

Private Sub Command1_Click()
Dim Tedadelist As Integer
Tedadelist = List1.ListCount
For i = 0 To Tedadelist
On Error GoTo E
Dim Adad1, Adad2 As Integer
Adad1 = List1.List(i)
Adad2 = List1.List(i + 1)
List2.AddItem Adad1 + Adad2
List2.AddItem "------------"
i = i + 1
Next i
E:
End Sub

[xrezax]

چرا خروجی چیزی نشون نداد ؟؟؟؟

[_behnam_]

نام لیست ها و نام کامند رو چک کن