SOMA LISTVIEW

Citação:

:
If ListView1.ListItems.Item(i).SubItems(6) = [Ô]Entrada[Ô] And ListView1.ListItems.Item(i).SubItems(5) = [Ô]2016[Ô] Then
soma = soma + ListView1.ListItems.Item(i).SubItems(2)
End If

If ListView1.ListItems.Item(i).SubItems(6) = [Ô]Saida[Ô] And ListView1.ListItems.Item(i).SubItems(5) = [Ô]2016[Ô] Then
soma1 = soma1 + ListView1.ListItems.Item(i).SubItems(2)
End If

Basta efetuar a operação.