Private Sub ListView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
Dim total As Integer = 0
For i As Integer = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).Checked Then
Dim tmp As Integer = Integer.Parse(ListView1.Items(i).SubItems(1).Text)
total += tmp
End If
Next
Me.textBox1.Text = total
End Sub