Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Filter(0) = "*.jpg"
        Filter(1) = "*.gif"
        Filter(2) = "*.png"
    End Sub
    Private Sub HinzuDateien(ByRef ret As List(Of String), ByVal Filter() As _
      String, ByVal Verzeichniss As String)
        ret.AddRange(My.Computer.FileSystem.GetFiles(Verzeichniss, _
        FileIO.SearchOption.SearchAllSubDirectories, Filter))
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus