oBS=NewObject("Custom") oBS.Addproperty("cSomeNewProperty","") Addproperty(m.oBS,"cSomeNewProperty2","") && SaveAsClass ignore cSomeNewProperty2 oBS.SaveAsClass('\cSomeLib','savedclass')