set procedure to (Addbs(Home(7)) + 'AB\AW\awAdapter.app') additive local acCodeMgr as acCodeMgr of acOOP.prg acCodeMgr = NewObject('acCodeMgr', 'acOOP.prg', 'awAdapter.app', <tlSrce>) && tlSrce: .T.: run on source code, .F.: copy source code and run on this copy acCodeMgr.cSrceProject = <the project you want to modify> && or acCodeMgr.cSrceFolders = <the folders you want to work on> return m.acCodeMgr.VCXclassesMove(; && {en} moves classes and their references into another class library <tcVCXsrce>; && {en} source.vcx {fr} VCX source , <tcRegExpSrce>; && {en} regular expression for classes to move - .+ moves all {fr} Expression régulière des classe(s) à déplacer , <tcVCXdest>; && {en} target.vcx {fr} VCX destination , <tlReplace>; && [.F.] {en} replace class in target.vcx if already exists {fr} Remplacer la classe si elle existe déjà dans le VCX destination )HTH,