como sumo los elementos de una lista

[fero]

Private Sub ChameleonBtn1_Click()
Dim Agregar As Integer
Agregar = InputBox("Agregar elemento")


List1.AddItem Agregar

End Sub

Private Sub ChameleonBtn2_Click()
Dim Elementos_lista As Integer

Elementos_lista = List1.ListCount - 1


Text1.Text = SumarElementos(Elementos_lista)


End Sub

Public Function SumarElementos(Lista As Integer) As Integer

Dim i As Integer
Dim Suma As Integer

Suma = 0
For i = 0 To Lista

Suma = Suma + List1.List(i)
SumarElementos = Suma

Next i
End Function