DTDを参照するXMLを作成

Imports System.Runtime.InteropServices.Marshal
Imports System.Xml
Imports System.Xml.Linq
'-------------------------------------------------------
Module OutXml
    Sub OutXmlTest()
        Dim Doc As New XDocument()
        Dim Declaration As New XDeclaration("1.0", "UTF-8", True) 'XML宣言作成
        Doc.Declaration = Declaration
        Dim Doctype As New XDocumentType("eBook", Nothing, "../dtd/Book.dtd", Nothing) 'DTD参照
        Doc.Add(Doctype)
        Dim Books As New XElement("Books") 'Booksノード作成
        Doc.Add(Books)
　　　　
　　　　'---

        Doc.Save("G:\TestData\TestXml.xml")
    End Sub
End Module

結果

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE eBook SYSTEM "../dtd/Book.dtd">
<Books />