Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xml As XElement = XElement.Load("People.xml")
Dim role As XElement = xml.Descendants("id").First()
Console.WriteLine(role)
role.SetAttributeValue("year", "2006")
Console.WriteLine(role)
End Sub
End Module