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))
Next