'Visual Basic .Net 
Imports System.Xml
Module Module1

    Sub Main()

        Dim myXmlTextWriter As XmlTextWriter = New XmlTextWriter("nouveauxlivres.xml", System.Text.Encoding.UTF8)
        myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
        myXmlTextWriter.WriteStartDocument(False)
        myXmlTextWriter.WriteComment("Ceci est un commentaire")
        'Crée l'élément de document principal.
        myXmlTextWriter.WriteStartElement("librairie")
        myXmlTextWriter.WriteStartElement("livre")

        'Crée un élément nommé 'titre' avec un noeud de texte
        ' puis ferme l'élément.
        myXmlTextWriter.WriteStartElement("titre")
        myXmlTextWriter.WriteString("Autobiographie de Mark Twain")
        myXmlTextWriter.WriteEndElement()

        'Crée un élément nommé 'Auteur'.
        myXmlTextWriter.WriteStartElement("Auteur")

        'Crée un élément nommé 'prénom' avec un noeud de texte
        ' puis le ferme, dans une seule ligne.
        myXmlTextWriter.WriteElementString("prénom", "Mark")

        'Crée un élément nommé 'nom' avec un noeud de texte.
        myXmlTextWriter.WriteElementString("nom", "Twain")

        'Ferme l'élément parent.
        myXmlTextWriter.WriteEndElement()

        'Crée un élément nommé 'prix' avec un noeud de texte
        ' puis le ferme, dans une seule ligne.
        myXmlTextWriter.WriteElementString("prix", "7,99")
 
       'Ferme l'élément livre.
        myXmlTextWriter.WriteEndElement()

        myXmlTextWriter.WriteStartElement("livre")
        myXmlTextWriter.WriteAttributeString("genre", "autobiographie")
        myXmlTextWriter.WriteAttributeString("publicationdate", "1979")
        myXmlTextWriter.WriteAttributeString("ISBN", "0-7356-0562-9")

        'Ferme l'élément livre.   
        myXmlTextWriter.WriteEndElement()
        'Ferme l'élément parent librairie. 
        myXmlTextWriter.WriteEndElement()

        myXmlTextWriter.Flush()
        myXmlTextWriter.Close()
        'Attend que l'utilisateur appuie sur ENTRÉE avant de fermer le programme.
        Console.ReadLine()

    End Sub

End Module