Dim i As Long
 
With ListView1
  i = .ListItems.Count
  Do While i > 0
    If .ListItems(i).Checked Then
      .ListItems.Remove i
    Else
      i = i - 1
    End If
  Loop
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de