Returns elements containing this element and all descendant elements
Imports System
Imports System.Xml
Imports System.Xml.XPath
Imports System.Collections
Imports System.Collections.Generic
Public Class MainClass
Public Shared Sub Main()
Dim xmlTree As XElement = _
<Root Att1="AttributeContent">
<Child>Some text
<GrandChild>element content</GrandChild>
</Child>
</Root>
Dim das As IEnumerable(Of XElement) = _
From el In xmlTree.DescendantsAndSelf() _
Select el
For Each el In das
Console.WriteLine(el.Name)
Next
End Sub
End Class