جمع زدن مقادیر موجود در لیست...

[Vig]

سلام

به این عکس یه نگاه بندازید

http://i31.tinypic.com/v9iyg.jpg

می خواستم بدونم چه طوری میشه مقادیر موجود در لیست باکس رو جمع زد.

[CRazYFULL]

Private Sub Command1_Click()
Call AddForAlllist(Text3)
End Sub

Sub AddForAlllist(Item As Long)
Dim I As Integer
For I = 0 To List1.ListCount - 1
List1.List(I) = List1.List(I) + Item
Next
End Sub