Dim enc As New System.Text.UnicodeEncoding
        Dim XMLwriter As XmlTextWriter = New XmlTextWriter("WandComClient.xml", _
          enc)
 
        With XMLwriter
            .Formatting = Formatting.Indented
            .Indentation = 4
            .WriteStartDocument()
            .WriteStartElement("Einstellungen")
            .WriteStartAttribute("SafePfad", setSafePath)
            .WriteStartAttribute("TransPfad", setTransPath)
            .WriteStartAttribute("Port", setPort)
            .WriteStartAttribute("BaloonShow", setBaloon)
            .WriteStartAttribute("LogShow", setLog)
            .WriteEndElement()
            .WriteEndDocument()
            .Close()
        End With
    End Sub
 
    Public Sub LoadSetup()
        Dim XMLFile As New StreamReader("WandComClient.xml") ' Ein stream, in 
        ' den du die Datei einließt
        Dim XMLReader As System.Xml.XmlReader = New System.Xml.XmlTextReader( _
          XMLFile) ' Hiermit wird gelesen
 
        With XMLReader
            .Read()
            If .NodeType = XmlNodeType.Element And .Name = "Einstellungen" Then
                .MoveToAttribute("SafePfad")
                setSafePath = .Value
                .MoveToAttribute("TransPfad")
                setTransPath = .Value
                .MoveToAttribute("Port")
                setPort = .Value
                .MoveToAttribute("BaloonShow")
                setBaloon = .Value
                .MoveToAttribute("LogShow")
                setLog = .Value
            End If
        End With
    End Sub