Imports System
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
Public Shared Sub Main()
Dim internalSubset = _
"" & Environment.NewLine & _
"" & Environment.NewLine & _
"" & Environment.NewLine & _
""
Dim doc As XDocument = _
Artifacts of Roman Civilization
Moreno, Jordao
Midieval Tools and Implements
Gazit, Inbar
doc.Nodes().Skip(1).First().AddAfterSelf(New XDocumentType("Pubs", Nothing, Nothing, internalSubset))
Console.WriteLine(doc)
End Sub
End Class