Private Sub VulListView(ByVal lv As System.Windows.Forms.ListView, ByVal col As Collection)
        lv.Items.Clear()
        imlCoverImages.Images.Clear()

        For Each item As bsFilm In col
            Dim lvi As New ListViewItem
            lvi.Text = item.titel
            lvi.Tag = item.filmId
            lvi.ImageKey = "coverImage-" & item.titel

            If Not item.cover Is Nothing Then
                imlCoverImages.Images.Add("coverImage-" & item.titel, item.cover)
            Else
                imlCoverImages.Images.Add("coverImage-" & item.titel, imageNoImage)
            End If
            lv.Items.Add(lvi)
        Next
    End Sub