Private allowedExtensions() As String = {".gif", ".jpg", ".bmp", ".png"}
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim my_imagelist As New ImageList
        Dim my_size As Size
 
        my_size.Height = 150
        my_size.Width = 150
 
        my_imagelist.ImageSize = my_size
        Dim dirFiles() As String = IO.Directory.GetFiles( _
          Me.Textpox_mit_Pfad.Text)
 
        For Each dirFile As String In dirFiles
            For Each extension As String In allowedExtensions
                If extension = IO.Path.GetExtension(dirFile) Then
                    my_imagelist.Images.Add(New Bitmap(dirFile))
                End If
            Next
        Next
        ListView1.Items.Clear()
        ListView1.View = View.LargeIcon
        ListView1.LargeImageList = my_imagelist
 
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten