Imports
Module Module1
Sub Main()
Dim xmlTree As XElement = _
Some text
element
Dim de = From el In xmlTree... _
Select el
For Each el In de
Console.WriteLine(el.Name)
Next
End Sub
End Module