Dim swSel as SelectionMgr = swModel.SelectionManager
Dim boolstatus as boolean = swModel.Extension.SelectByID2(compName,
"COMPONENT",0, 0, 0, False, 0, Nothing, 0)
Dim swCompPart as Component2 = swSelMgr.GetSelectedObject6(1, -1)
Dim swModelPart as ModelDoc2 = swCompPart.GetModelDoc2
Dim customPropMgr as CustomPropertyManager =
swModelPart.Extension.CustomPropertyManager