Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        For Each s As String In IO.Directory.GetDirectories( _
        "H:\FILES\InvContent\Inventorteile")
            Dim n As New TreeNode(s)
            Me.TreeView1.Nodes.Add(n)
            n.ImageKey = s
        Next
        Me.BackgroundWorker1.RunWorkerAsync()
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim dat As New DataSet
        dat.ReadXml("C:\explBilder.xml")
        For Each r As DataRow In dat.Tables(0).Rows
            Dim bytes() As Byte = Convert.FromBase64String(r("Bild"))
            Dim ms As New IO.MemoryStream(bytes)
 
            Me.ImageList1.Images.Add(r("Name"), Image.FromStream(ms))
            ms = Nothing
            bytes = Nothing
        Next
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
      ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      BackgroundWorker1.RunWorkerCompleted
        Dim t As New System.Threading.Thread(AddressOf img)
        t.Start()
    End Sub
    Private Sub img()
        For Each n As TreeNode In Me.TreeView1.Nodes
            n.ImageKey = n.Text
        Next
    End Sub