Private Sub ListView1_KeyDown(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = 8 Or e.KeyCode = 46 Then
            For i As Long = ListView1.SelectedIndices.Count - 1 To 0 Step -1
                ListView1.Items.RemoveAt(ListView1.SelectedIndices(i))
            Next
 
        End If
 
    End Sub