dim documentinfo as new CFXMLDocumentInfoMBS
dim docnode as new CFXMLNodeMBS
dim instructionNode as new CFXMLNodeMBS
dim xmldocument as new CFTreeMBS
dim instructionTree as new CFTreeMBS
dim instructionInfo as new CFXMLProcessingInstructionInfoMBS
dim personInfo as new CFXMLElementInfoMBS
dim personNode as new CFXMLNodeMBS
dim personTree as new CFTreeMBS
dim nameInfo as new CFXMLElementInfoMBS
dim nameNode as new CFXMLNodeMBS
dim nameTree as new CFTreeMBS
dim nameTextNode as new CFXMLNodeMBS
dim nameTextTree as new CFTreeMBS
dim nameTextNode2 as new CFXMLNodeMBS
dim nameTextTree2 as new CFTreeMBS
dim person as CFStringMBS

const kCFStringEncodingUTF8=&h08000100

// create a document node
documentinfo.SourceURL=nil
documentinfo.CFStringEncoding=kCFStringEncodingUTF8

docnode.CreateDocument(documentinfo)

xmldocument.CreateWithXMLNode docNode

// Instruction Tag

instructionInfo.DataString=NewCFStringMBS("version=""1.0"" encoding=""utf-8"" ")
instructionNode.CreateProcessInstruction(NewCFStringMBS("xml"),instructionInfo)
instructionTree.CreateWithXMLNode(instructionNode)

// root element

personInfo.XMLAttributes=nil
personInfo.AttributeOrder=nil
personInfo.IsEmpty=false

person=NewCFStringMBS("person")
personNode.CreateElement person, personInfo
personTree.CreateWithXMLNode personNode

nameInfo.XMLAttributes=nil
nameInfo.AttributeOrder=nil
nameInfo.IsEmpty=false

namenode.CreateElement NewCFStringMBS("name"), nameInfo
nameTree.CreateWithXMLNode nameNode
personTree.AppendChild nameTree

nameTextNode.CreateText NewCFStringMBS("Apple")
nameTextTree.CreateWithXMLNode nameTextNode
nameTree.AppendChild nameTextTree

nameTextNode2.CreateText NewCFStringMBS("Orange")
nameTextTree2.CreateWithXMLNode nameTextNode2
nameTree.AppendChild nameTextTree2

CFShowMBS(xmldocument)

xmldocument.AppendChild instructionTree
xmldocument.AppendChild personTree

MsgBox xmldocument.XMLData.str

// shows "<?xml version="1.0" encoding="utf-8" ?><person><name>AppleOrange</name></person>"