Imports System.Xml
Imports System.IO
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim strString() As String
 
        'Instanzierung und Uebergabe Ablageort der XML-Datei
        Dim xml As New clsXML("C:\Dokumente und" & _
          "Einstellungen\ThinkingBomb\Desktop\WindowsApplication3\XMLFile1.xml")
 
        'xml-Datei oeffnen,
        'wenn sie nicht existiert, wird ein Grundgeruest erzeugt
        xml.Open()
 
        'Neue Knoten
        xml.SetNewNode("Knoten1", "Attribut1", "Value1")
        xml.SetNewNode("Knoten2", "Attribut2", "Value2")
        xml.SetNewNode("Knoten3", "Attribut3", "Value1")
 
        'Speichere XML Datei
        xml.Save()
 
        'Liste alle Attributwerte von Knoten auf, deren Name Knoten1 ist und 
        ' einen Attribut haben
        'welches Attribut1 heißt
        strString = xml.ListAttributs("Knoten1", "Attribut1")
 
        'Liefere mir den Wert des ersten Attributes (Index = 0), welches zum 
        ' ersten auffindbaren
        'Knoten mit dem Namen "Knoten1" passt
        MsgBox(xml.GetValue("Knoten1", "Attribut1", 0))
    End Sub