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 child3 As XElement = xmlTree.(0)
child3.ReplaceWith( _
From el In srcTree.Elements() _
Where (CInt(el) > 3) _
Select el)
Console.WriteLine(xmlTree)
End Sub
End Class