Dim fightClub = _
(From movie In movies.<Movie> _
Where movie.@Title = "Fight Club" _
Select movie).First()
' naten prvnho nru
Dim firstGenre = fightClub.<Genre>(0).Value
' Odpovd zpisu: firstGenre = fightClub.Elements("Genre")(0).Value
Console.WriteLine("Prvn = {0}", firstGenre)

' zobrazen vech nr
' Odpovd zpisu: fightClub.Elements("Genre")
For Each g In fightClub.<Genre>
	Console.WriteLine(g.Value)
Next
