SET CLASSLIB TO wwXML ADDITIVE *-- Create a customized "Person" object and initializes its properties LOCAL loFabio loFabio = CREATEOBJECT("Person") loFabio.FName = "Fabio" loFabio.Age = 28 *-- Now serializes the object into an XML stream with a schema LOCAL loXML, lcXML loXML = CREATEOBJECT("wwXML") loXML.nCreateDataStructure = 1 && Schema lcXML = loXML.ObjectToXML(loFabio) *-- Create a new object based on the XML and show the values of the properties loClone = CREATEOBJECT("Person") loClone = loXML.XMLToObject(lcXML, loClone) MESSAGEBOX(loClone.FName) MESSAGEBOX(loClone.Age) MESSAGEBOX(loClone.SayHello()) *-- Class Person DEFINE CLASS Person as Custom FName = "" Age = 0 FUNCTION SayHello() RETURN "Hello" ENDFUNC ENDDEFINE