Imports System
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
Public Shared Sub Main()
Dim srcTree As XElement = _
1
2
3
4
5
Dim xmlTree As XElement = _
1
2
3
4
5
xmlTree.Add(New XElement("NewChild", "new content"))
xmlTree.Add( _
From el In srcTree.Elements() _
Where CInt(el) > 3 _
Select el _
)
xmlTree.Add(srcTree.)
Console.WriteLine(xmlTree)
End Sub
End Class