LPARAM lcOClass,lcOClasslib,lcNClass,lcNClasslib * lcOClass - Class name * lcOClasslib - VCX name * lcNClass - New class name * lcNClasslib - New VCX name LOCAL lcTClasslib lcTClasslib=SYS(2023)+SYS(2015) && Temp. VCX lcOClass=ALLT(lcOClass) lcNClass=ALLT(lcNClass) CREATE CLASSLIB (lcTClasslib) && Create temp. VCX * Add class ADD CLASS (lcOClass) OF (lcOClasslib) TO (lcTClasslib) IF !UPPER(lcOClass)==UPPER(lcNClass) RENAME CLASS (lcOClass) OF (lcTClasslib) TO (lcNClass) ENDIF ADD CLASS (lcNClass) OF (lcTClasslib) TO (lcNClasslib) *CLEAR ALL DELE FILE (lcTClasslib+".*")MartinJ