For i As var = 0 To vypis.Items.Count - 1
If shouldRemove(vypis.Items(i)) Then
vypis.Items.RemoveAt(i)
End If
Next
Private Function shouldRemove(item As Object) As Boolean
...logika pro smazani
End Function
Je to z nějakého online konvertoru, takže netuším, jestli je to úplně dobře.