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