Imports System
Imports System.Xml
Imports System.Xml.Schema
Class MainClass
Shared Sub Main()
Dim srcTree As XElement = _
1
2
3
4
5
Dim dstTree1 As XElement = _
<%= From el In srcTree.Elements _
Where (el.Value >= 3) _
Select <%= el.Value %> %>
Dim dstTree2 As XStreamingElement = New XStreamingElement("NewRoot", _
From el In srcTree.Elements _
Where el.Value >= 3 _
Select <%= el.Value %> _
)
Console.WriteLine(dstTree1)
Console.WriteLine(dstTree2)
End Sub
End Class