Suma de registros en listview

[carlosanpy]

Código:

Private Sub btnSumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSumar.Click
        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)
            'Te falto decirle que si es mayor ó igual para que recorra todos los items
        ElseIf listControl.Items.Count >= 1 Then
            Dim Total As Double
            For i = 1 To listControl.Items.Count - 1
                ' Y Convertir la cadena en Double para que sume correctamente
                Total = Total + Convert.ToDouble(listControl.Items(i).SubItems(2).Text)
            Next

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

        
    End Sub

para el segundo registro
se intercepta en "For i = 1 To listControl.Items.Count - 1" pero pasa directo al next