Dim i As Integer, sCount As Integers Count = 0 For i = 0 To ListView1.ListItems.Count - 1 If ListView1.ListItems(i).Checked = True Then sCount = sCount + 1 Next