Sumar columnas de items en Listview

[gctalico]

prueba esto

Código:

Private Sub sumaTotal()
        Dim puntero As Integer = 1
        Dim totales As Decimal = 0
     

        While puntero < Grid1.Rows.Count

            totales = totales + Grid1(3, puntero - 1).Value
            puntero = puntero + 1

        End While

        txttotal.text = totales
    End Sub