Public Sub GetTree()
        Set swApp = CreateObject("SldWorks.Application")
        swApp.Visible = True
        Set swModel = swApp.ActiveDoc
        Set activeConfig = swModel.ConfigurationManager.ActiveConfiguration
        Set rootComp = activeConfig.GetRootComponent3(True)
        Traverse (rootComp)
        
    End Sub

 


    Public Sub Traverse(ByVal swComp As Component2)
        Debug.Print ("Component name: " & swComp.Name2)
        Dim firstLevelChildrenComps As Object
        Dim swChildComp As Component2
        Set firstLevelChildrenComps = swComp.GetChildren()
        If Not firstLevelChildrenComps Is Nothing Then
            For Each swChildComp In firstLevelChildrenComps
                If Not swChildComp.GetSuppression = swComponentSuppressionState_e.swComponentSuppressed Then
                    Traverse (swChildComp)
                End If
            Next
        End If
    End Sub

Public Sub GetTree()
        Set swApp = CreateObject("SldWorks.Application")
        swApp.Visible = True
        Set swModel = swApp.ActiveDoc
        Set activeConfig = swModel.ConfigurationManager.ActiveConfiguration
        Set rootComp = activeConfig.GetRootComponent3(True)
        Traverse (rootComp)
        
    End Sub