'/// 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
    Handles MyBase.Load
        Dim root As New TreeNode(" ... ")
        root.Tag = New String(txtPfad2.Text)
        root.Nodes.Add(New TreeNode)
        tvwBaumBibliothek.Nodes.Add(root)
    End Sub
 
    Private Sub tvwBaumBibliothek_AfterExpand(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.TreeViewEventArgs) _
    Handles tvwBaumBibliothek.AfterExpand
        Dim N As TreeNode = e.Node
        Dim N2 As TreeNode
        Dim D As IO.DirectoryInfo
        N.Nodes.Clear()
        For Each D In New IO.DirectoryInfo(e.Node.Tag.ToString + _
          "\").GetDirectories
            N2 = New TreeNode(D.Name)
            N2.Tag = New String(D.FullName)
            e.Node.Nodes.Add(N2)
            Try
                If D.GetDirectories.Length > 0 Then
                    N2.Nodes.Add(New TreeNode)
                End If
            Catch ex As Exception
                Debug.WriteLine(ex.ToString)
            End Try
        Next
    End Sub
    '//