WITH This lcCurrentControl = .CurrentControl WITH eval("."+.CurrentControl) lcName = .Name lcClasslib = .classlibrary lcClass = .Class ENDWITH .removeobject(lcName) IF !lcClasslib$set("Classlib") SET classlib to (lcClasslib) additive ENDIF .addobject(lcName, lcClass) .CurrentControl = lcCurrentControl ENDWITHCetin