Don't know if this is the best way but it's the only one I know

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