ListView CheckBox

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