利用 Xml Literal 功能複製一段 Xml

    Function CopyXml(ByVal element As XElement)
        Dim xml = <<%= element.Name %> <%= element.Attributes %>>
                      <%= From x In element.Nodes _
                          Where x.NodeType <> System.Xml.XmlNodeType.Element _
                          Select x %>
                      <%= From x In element.Elements %>
                  </>
        Return xml
    End Function

這個例子的目的是練習如何進行 Xml 文檔轉換，以替代以前 xslt 的功能。
在 <%= %> 中可以嵌入遞歸調用，這樣就能做任意層次的文檔轉換，xslt 可以完全扔掉了。