XNode.AddBeforeSelf (Object[]) adds the specified content immediately before this node.
Imports System
Imports System.Xml
Imports System.Xml.Schema
Class MainClass
Shared Sub Main()
Dim srcTree As XElement = _
<Root>
<Element1>1</Element1>
<Element2>2</Element2>
<Element3>3</Element3>
<Element4>4</Element4>
<Element5>5</Element5>
</Root>
Dim xmlTree As XElement = _
<Root>
<Child1>1</Child1>
<Child2>2</Child2>
<Child3>3</Child3>
<Child4>4</Child4>
<Child5>5</Child5>
</Root>
Dim child1 As XElement = xmlTree.<Child1>(0)
child1.AddBeforeSelf( _
From el In srcTree.Elements() _
Where CInt(el) > 3 _
Select el)
Console.WriteLine(xmlTree)
End Sub
End Class