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)
    xNode.Tag = "Layer"
''''''''''''''''''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)
    xNode.Tag = "Linientypen"
 
''''''''''''''''''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)
    xNode.Tag = "Textstile"
''''''''''''''''''For Each ActData In Drawing.TextStyles
''''''''''''''''''    TreeView1.Nodes.Add xNode, tvwChild, , ActData.Name, _
  Image:=4
''''''''''''''''''Next
Next
End Sub
Private Sub TreeView1_nodeClick(ByVal Node As MSComctlLib.Node)
 
On Error Resume Next
 
Dim ActLayer As AcadLayer
Dim ActLinie As AcadLineType
Dim ActText As AcadTextStyle
 
Select Case xNode.Tag
    Case "Layer"
        ListView1.View = lvwReport
        ListView1.ListItems.Clear
        ListView1.ColumnHeaders.Clear
        ListView1.ColumnHeaders.Add 1, "Layer", "Layer", ListView1.Width * 0.99
        For Each ActLayer In ThisDrawing.Layers
            ListView1.ListItems.Add Text:=ActLayer.Name
        Next
    Case "Linientypen"
        ListView1.View = lvwReport
        ListView1.ListItems.Clear
        ListView1.ColumnHeaders.Clear
        ListView1.ColumnHeaders.Add 1, "Linientypen", "Linientypen", _
          ListView1.Width * 0.99
        For Each ActLinie In ThisDrawing.Linetypes
            ListView1.ListItems.Add Text:=ActLinie.Name
        Next
    Case "Textstile"
        ListView1.View = lvwReport
        ListView1.ListItems.Clear
        ListView1.ColumnHeaders.Clear
        ListView1.ColumnHeaders.Add 1, "Textstile", "Textstile", _
          ListView1.Width * 0.99
        For Each ActText In ThisDrawing.TextStyles
            ListView1.ListItems.Add Text:=ActText.Name
        Next
End Select
End Sub