For i = ListView1.ListItems.Count To 1 Step -1 If ListView1.ListItems(i).Selected Then ListView1.ListItems.Remove i End If Next