Code
Dim a as integer = lbox.items.length
dim x as integer = 0
dim topla as integer = 0
Dim s as double(veya float) = 0
While x<a
s = lbox.item(x).value
Topla = topla + s
X++
End while
Msgbox(topla.tostring)You may need to convert to double a while getting a value to S .. For your information.