Imports System.Linq
Imports System.Xml.Linq

Module Module1

    Sub Main()
        ' Create test by using a global XML namespace prefix. 

        Dim contact =
            <telefony>
                <telefon>605 111 605</telefon>
                <telefon>508 234 234</telefon>
                <telefon>058 345 322</telefon>
            </telefony>

        Console.WriteLine(contact)

        Dim x() As Integer = {1, 2, 4, 5}

        Dim n As XElement = _
    <Root>
        <%= From i In x Select <Child><%= i %></Child> %>
    </Root>

        Console.WriteLine(n)

        Console.ReadKey()
    End Sub

End Module