Public Sub Save()
   Dim root As XElement
 
   root = New XElement("root", _
	  From i In pItems _
	  Select New XElement("Item", _
		 New XAttribute("Name", i.Name), _
		 New XAttribute("Value", i.Value), _
		 New XAttribute("ValueType", i.ValueType), _
		 From a In i.Attributes _
		 Select New XElement("Attribute", _
			 New XAttribute("Name", a.Name), _
			 New XAttribute("Value", a.Value), _
			 New XAttribute("ValueType", a.ValueType))))
 
   root.Save("test.xml")
End Sub