Private Sub UserForm_Initialize()
Dim RootNode As MSComctlLib.Node
Dim DrawNode As MSComctlLib.Node
Dim xNode As MSComctlLib.Node
Dim Drawing As AcadDocument
TreeView1.ImageList = ImageList1
For Each Drawing In Application.Documents
    Set RootNode = TreeView1.Nodes.Add(Text:=Drawing.Name, Image:=1)
    Set xNode = TreeView1.Nodes.Add(RootNode.Index, tvwChild, , Text:="Layer", _
      Image:=2)
For Each ActData In Drawing.Layers
    TreeView1.Nodes.Add xNode, tvwChild, , ActData.Name, Image:=2
Next
    Set xNode = TreeView1.Nodes.Add(RootNode.Index, tvwChild, , _
      Text:="Linientypen", Image:=3)
For Each ActData In Drawing.Linetypes
    TreeView1.Nodes.Add xNode, tvwChild, , ActData.Name, Image:=3
Next
    Set xNode = TreeView1.Nodes.Add(RootNode.Index, tvwChild, , _
      Text:="Textstile", Image:=4)
For Each ActData In Drawing.TextStyles
    TreeView1.Nodes.Add xNode, tvwChild, , ActData.Name, Image:=4
Next
Next
End Sub