Execute the query and loop through the results, displaying the Information to the screen.
Imports System Imports System.Xml.Linq Imports System.Xml.XPath Public Class MainClass Public Shared Sub Main() Dim employees As XElement = XElement.Load("EmployeesAndTasks.xml") Dim linqQuery = From task In employees.<Employee>...<Task> _ Select EmployeeName = task.Parent.Parent.<Name>.Value, _ TaskName = task.<Name>.Value, _ task.<Description>.Value _ Order By EmployeeName For Each task In linqQuery Console.WriteLine("{0,-15} - {1} ({2})", task.EmployeeName, task.TaskName, task.Description) Next End Sub End Class