ListViewItem verwijderen.

[ninjaplayer]

Ik gebruik nu deze code om items uit een listview te verwijderen:

Dim SelectedIndex As Integer = ListView1.SelectedIndices.Item(0)
ListView1.Items.Item(SelectedIndex).Remove()

Het geselecteerde item wordt wel verwijderd, maar het probleem is dat sommige items onzichtbaar worden.

Hoe kan ik ervoor zorgen dat er maar één item verwijderd wordt?

(Volledige code)

    Private Sub Delete_Item()
        If ListView1.SelectedIndices.Count = 0 Then
        Else
            Dim ItemsCount As Integer = ListView1.Items.Item(ListView1.SelectedIndices.Item(0)).SubItems.Item(1).Text
            Dim SelectedIndex As Integer = ListView1.SelectedIndices.Item(0)
            MsgBox(ItemsCount.ToString)
            Dim DelItem = InputBox("Hoeveel listviewitems verwijderen?")
            If Not DelItem = "" Then
                If IsNumeric(DelItem) Then
                    If ItemsCount >= DelItem And DelItem > 0 Then
                        Dim int As Integer = DelItem
                        ItemsCount = ItemsCount - int
                        MsgBox(ItemsCount)
                        ListView1.Items.Item(SelectedIndex).SubItems.Item(1).Text = ItemsCount
                        If ItemsCount = 0 Then
                            'MsgBox(SelectedIndex)
                            ListView1.Items.Item(SelectedIndex).Remove()
                        End If
                    Else
                        MsgBox("Ongeldig!", MsgBoxStyle.Exclamation)
                    End If
                Else
                    MsgBox("Ongeldig!", MsgBoxStyle.Exclamation)
                    MsgBox(ListView1.FocusedItem.ToString)
                End If

            End If
        End If
    End Sub