Código
Private Function Sumar() As Double Dim i As Integer For i = 1 To ListView1.ListItems.Count SumarPar = SumarPar + CDbl(ListView1.ListItems(i).SubItems(3)) Next i End Function Private Sub Command3_Click() Label1.Caption = "Total pares: " & Val(SumarPar) End Sub
siempre tira que la suma es 0