Imports System
Imports System.Data.DLinq
Imports System.Expressions
Imports System.Query
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xml As XElement = XElement.Load("People.xml")
xml.Descendants("idperson").First().Remove()
xml.Elements("role").Remove()
Console.WriteLine(xml)
End Sub
End Module