[RESOLVED] Sum of checked list item!

[Mahmood Khaleel Pira]

Hi Dears

I need your help
I want to collect (Sum) the amount of selected items from the list view to TextBox (or label). my code does not work.
This is my code:
**********************
Dim i, A
A = 0
For i = 1 To ListView1.SelectedItem.Checked = True
A = A + ListView1.ListItems(i).SubItems(2)
Next
Text5.Text = A
***********************
Please Help!