This challenge is going on for days now and I can't get it the way I would like to see it.

I have an assembly. In a 'For - Next' I get the 'Childeren' as Component2. They can be parts or subassemblies.

I can determine what type of document the 'Child' is.

In these documents I have Custom Properties that I would like to change to a new value.

And this is where I get stuck. I have tried different things but am unsuccessful in 1 thing; I have to open the file to change the value of the custom properties and then close it.

Having an assembly of about 1000 parts makes it a disco on my screen and that is not what I want (I have past the disco stage for many years now).

I have tried my logic (which did not work obviously)

With Component2 I am unable to find something that allows me to change the custom property so I have to go to CustomPropertyManager

Dim FullFileNameofChild as String

FullFileNameofChild = "Child'.GetPathName

Dim MyActiveDoc as ModelDoc2

MyActiveDoc = swApp.ActivateDoc2(FullFileNameofChild, (Silent) True, (Error), DOC_ERROR (as Long))

Dim MyCustProp as CustomPropertyManager

MyCustProp = MyActiveDoc.Extension.CustomPropertyManager("") <<<<< this is where it goes wrong.

I do not have a clue why. In VB.NET I can select it and no errors occur untill debugging. I am thinking that ActivateDoc2 is not doing what I think it should do.

Can someone point me in the right direction please.

Much appreciated.