Dim fs As New System.IO.FileStream(ProjectFileName, IO.FileMode.Create)
        ds.WriteXml(fs)
        fs.Close()
 
 
        Dim XmlDoc As New System.Xml.XmlDocument
        XmlDoc.Load(ProjectFileName)
 
        ' Weitere Elemente wie Antragsteller etc. der XML-Datei hinzufügen
        Dim AntragstellerElement As System.Xml.XmlElement = _
          XmlDoc.CreateElement("Antragsteller")
        Dim AntragstellerAttrib As System.Xml.XmlAttribute = _
        XmlDoc.CreateAttribute("Name")
        AntragstellerAttrib.Value = cmbAntragsteller.Text
        AntragstellerElement.Attributes.Append(AntragstellerAttrib)
        XmlDoc.DocumentElement.AppendChild(AntragstellerElement)
 
etc..
 
        XmlDoc.Save(ProjectFileName)

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################