Imports System
Imports System.Xml
Imports System.Xml.Schema
Class MainClass
Shared Sub Main()
Dim srcTree As XElement = _
1
2
3
4
5
Dim xmlTree As XElement = _
1
2
3
4
5
Dim child1 As XElement = xmlTree.(0)
child1.AddAfterSelf( _
From el In srcTree.Elements() _
Where CInt(el) > 3 _
Select el)
Console.WriteLine(xmlTree)
End Sub
End Class