You mean something like this?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v As Integer
line1:
For v = 0 To ListView1.Items.Count - 1
If ListView1.Items(v).Checked = False Then
ListView1.Items.RemoveAt(v)
GoTo line1
End If
Next v
ListView1.Update()
End Sub