Dim imageFile As IO.FileInfo
        Dim imageDir As New DirectoryInfo(Application.StartupPath & "\Icons")
 
        For Each imageFile In imageDir.GetFiles
            ImageList_symbol.Images.Add(Image.FromFile(imageFile.FullName))
            On Error Resume Next
        Next

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