Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, _
                                      ByVal e As  _
                                      System.Windows.Forms.TreeViewEventArgs) _
                                      Handles TreeView1.AfterSelect
        '##--enthaltene Dateien in ListView anzeigen:
        Try
            With ImageList1
                ' Liste leeren
                .Images.Clear()
                ' Größe der anzuzeigenden Bilder festlegen
                .ImageSize = New Size(48, 48)
            End With
            ' Zähler für Bildindex
            Dim ImageIndex As Integer = 0
            Dim ListViewItem As ListViewItem = Nothing
            With ListView1
                .LargeImageList = ImageList1
                .Items.Clear()
                .View = View.LargeIcon
                .LabelEdit = True
                ' Alle BMP Dateien im angegebene Pfad suchen
                For Each item As String In System.IO.Directory.GetFiles( _
                  e.Node.FullPath, "*.bmp")
                    ' aktuelles Bild in die ImageList laden
                    ImageList1.Images.Add(Image.FromFile(item))
                    ' Neues ListViewItem erstellen 
                    ListViewItem = New ListViewItem(item.ToString, ImageIndex)
                    ' ListViewItem in ListView1 einfügen
                    .Items.Add(ListViewItem)
                    ' Bildindex hochzählen
                    ImageIndex += 1
                Next
            End With
        Catch ex As Exception
        End Try
     End Sub