how to sum all the item in the listbox?

Submitted by jay_7 on
this is my code.. Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount Label1.Caption = List1.ListCount Next i End Sub Private Sub Command2_Click() List1.AddItem Text1.Text End Sub what is wrong in my code? pls help.. thanks