The purpose of the macro is to change some image quality settings. I use the traverse method for all component in assembly. 

I want to reduce "QualityShaded", "QualityWireframe" and Not active "SaveTesselation" in part file.

...

Dim boolstatusQS As Boolean
Dim boolstatusQW As Boolean
Dim boolstatusST As Boolean
...               
boolstatusQS = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swImageQualityShaded,