eeek list view :@

[nswan]

Dim count As Integer
Dim sum As Integer
Dim lstItem As ListViewItem

For count = 0 To ListView1.Items.Count - 1
     lstItem = ListView1.Items(count)
     sum = sum + CInt(lstItem.SubItems(1).Text)
Next
TextBox1.Text = sum

this adds up the ages