Private myImageList As ImageList = New ImageList 'ImageList erstellen
 
    Private Sub TestToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles TestToolStripMenuItem.Click
        'Eigenschaften des Listviews festlegen 
        Me.lv_bilder.LargeImageList = myImageList
        Me.lv_bilder.View = View.LargeIcon
        myImageList.ImageSize = New Size(100, 100) 'Größe festlegen
        BW_Bilder.WorkerReportsProgress = True
        BW_Bilder.RunWorkerAsync(aktuellesVerzeichnis)
    End Sub
 
    Private Sub BW_Bilder_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles BW_Bilder.DoWork
        Dim tmpSucheUDT As String = DirectCast(e.Argument, String)
        Dim c As Int32 = 0
        Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo(tmpSucheUDT)
        Try
            For Each myFile As IO.FileInfo In dir.GetFiles
                If allowedExtensions.Contains(myFile.Extension) Then
                    Try
                        myImageList.Images.Add(Bitmap.FromFile(myFile.FullName))
                        Dim myLVItem As ListViewItem = New ListViewItem( _
                          myFile.Name, c)
                        myLVItem.Tag = myFile.FullName
                        myLVItem.ToolTipText = myFile.FullName
                        c += 1
                        BW_Bilder.ReportProgress(0, myLVItem)
                    Catch ex As OutOfMemoryException
                        'dann ist es kein Bild 
                    End Try
                End If
            Next
        Catch ex As UnauthorizedAccessException
        End Try
    End Sub
 
    Private Sub BW_Bilder_ProgressChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.ProgressChangedEventArgs) Handles _
      BW_Bilder.ProgressChanged
        Dim lvi As New ListViewItem
        lvi = e.UserState
        Me.lv_bilder.Items.Add(lvi)
    End Sub