'Löschen
Dim i, n As Integer
If listFilm.SelectedIndices.Count > 0 Then
                For i = listFilm.SelectedIndices.Count - 1 To 0 Step -1
                    n = listFilm.SelectedIndices(i)
                    arrfilm.Remove(listFilm.Items(n))
                    listFilm.Items.Remove(listFilm.Items(n))
                Next
 
'indexchanged
Private Sub listFilm_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles listFilm.SelectedIndexChanged
 
 
        If listFilm.SelectedIndex = -1 And listFilm.Items.Count = 0 Then
        Exit Sub
        ElseIf listFilm.SelectedIndex = -1 And listFilm.Items.Count > 0 Then
        listFilm.SelectedIndex = 0
        End If
 
        filmfelderfüllen(CType(listFilm.SelectedItem, Film))
        txtfelderfüllen(CType(listFilm.SelectedItem, Film))