Suma de registros en listview

[carlosanpy]

hola a todos
estoy trabajando en visual basic 2008
en un listview estoy cargando datos, la idea es cargar datos y sumarlos a medida que voy insertando datos en una columna "Total"
Fecha Concepto Monto Total
12/05 Compras 100 100
13/05 Compras 200 300
13/05 Compras 150 450
y asi ir sumando de acuerdo a los montos
tengo esta rutina que me funciona para la primera fila pero a la segunda fila y siguientes no camina

Código:

Dim item As ListViewItem
        item = New ListViewItem(DateTimePicker1.Text)
        item.SubItems.Add(txtConcepto.Text)
        item.SubItems.Add(txtMonto.Text)
        If listControl.Items.Count = 0 Then
            item.SubItems.Add(txtMonto.Text)
        ElseIf listControl.Items.Count = 1 Then
            Dim Total As Double
            For i = 1 To listControl.Items.Count - 1
                Total = Total + listControl.Items(i).SubItems(2).Text
            Next

            item.SubItems.Add(Total)
        End If
        item.SubItems.Add(txtObservaciones.Text)
        listControl.Items.Add(item)

Espero puedan darme una mano chicos

Saludos
Carlos