Can this be extended to all the sub level components of current assembly

Forums:
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Assemblies 
Module ArrangementUpdateNew
 
    Dim theSession As Session = Session.GetSession()Dim workPart As Part = theSession.Parts.WorkDim lw As ListingWindow = theSession.ListingWindow 
    Sub Main()
        lw.Open() 
        'ArrangementOptions.IndividuallyPositionedDim Mycomponent As Assemblies.Component=NothingForEach Mycomponent In workPart.ComponentAssembly.RootComponent.GetChildren()
            lw.WriteLine(Mycomponent.Name)TryDim MyObj(0)As NXObject
                MyObj(0)= Mycomponent
                Dim assembliesParameterPropertiesBuilder1 As AssembliesParameterPropertiesBuilder = workPart.PropertiesManager.CreateAssembliesParameterPropertiesBuilder(MyObj)
                assembliesParameterPropertiesBuilder1.Arrangements= Assemblies.AssembliesParameterPropertiesBuilder.ArrangementOptions.IndividuallyPositionedDim NxObject1 As NXObject
                NxObject1 = assembliesParameterPropertiesBuilder1.Commit()
                assembliesParameterPropertiesBuilder1.Destroy()Catch ex As NXException
                lw.WriteLine("Failed")EndTry 
        Next 
    EndSub 
EndModule