Evento validating en campos de texto

[dilinwe]

Código vb:

Sub Suma()
Dim mTotal(5) As Double
Dim X As Integer
For X = 0 To 5
    mTotal(X) = 0
Next X
 
For i = 1 To lvAutomovilera.ListItems.Count
    For X = 0 To 5
        mTotal(X) = mTotal(X) + CDbl(lvAutomovilera.ListItems(i).SubItems(X + 4))
    Next X
Next i
 
For X = 0 To 5
    txtTotal(X) = Format(mTotal(X), "#,##0")
Next X
End Sub
 

Creo que esto te servirá.