Suma de registros en listview

[carlosanpy]

Bueno
Veo que me complico al santo botón

al final le agregue un label y en ella resumo la suma
el código quedó así

Código HTML:

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

Gracias por todo