Vc quer saber como é o procedimento para somar os valores de subitens de um determinado listview? Se for isso:
dim soma as double
For i% = 0 to ListView1.listitens.count - 1
soma = soma + cdbl(ListView1.ListItens(i%).ListSubItens(Indice_da_coluna_a_somar).Text)
next i%