Dim doc As SimpleXMLWrapper
doc.Initialize("animals") 'Root node is animals
Dim root As XmlNode
root = doc.RootNode
Dim dog As XmlNode = root.appendChild("dog")
dog.SetAttribute("name","Ginger")
Dim dog As XmlNode = root.appendChild("dog")
dog.SetAttribute("name","Cheyenne")
Dim cat As XmlNode = root.appendChild("cat")
cat.SetAttribute("name","Polly")
Log(doc.toString)
doc.SaveDocument(File.DirApp&"\animals.xml")