如何在VB.NET中将XElements嵌入到XML文本中？

Imports System.Xml.Linq

Module Module1
    Sub Main()
        ' 创建一个根元素
        Dim root As XElement = <Root>
                                  <Child1>Value1</Child1>
                                  <Child2>Value2</Child2>
                                  <Child3>Value3</Child3>
                                </Root>

        ' 创建一个新的XElement
        Dim newElement As XElement = <NewChild>NewValue</NewChild>

        ' 将新的XElement添加到根元素的子元素中
        root.Add(newElement)

        ' 将XML文本输出到控制台
        Console.WriteLine(root)
    End Sub
End Module

<Root>
 <Child1>Value1</Child1>
 <Child2>Value2</Child2>
 <Child3>Value3</Child3>
  <NewChild>NewValue</NewChild>
</Root>