hapus data yang dipilih lebih dari satu di vb 2008

ada kasus vb seperti ini
Bagaimana cara hapus data yang dipilih lebih dari satu ini codiingnya dibawah :

Private Sub hapusdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdatapilih.Click
        For Each i As ListViewItem In lv.SelectedItems
            lv.Items.Remove(i)
        Next
        For Each i As ListViewItem In lv.CheckedItems
            lv.Items.Remove(i)
        Next
    End Sub

Semoga tulisan singkat ini berguna dan bermanfaat
Selamat mencoba :)