XML LINQ VB.Net

Imports System
Imports System.Xml
Imports System.Xml.XPath
Imports System.Collections
Imports System.Collections.Generic
        Imports 
        
        Module Module1
            Sub Main()
                Dim xmlTree As XElement = 
        
                Dim attList As IEnumerable(Of XAttribute) = _
                    From at In xmlTree.Attributes() _
                    Select at
        
                For Each att In attList
                    Console.WriteLine(att)
                Next
            End Sub
        End Module