Private Sub onLoaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
             Dim V As New WebClient
        AddHandler V.OpenReadCompleted, AddressOf Load_CounterComplett
        V.OpenReadAsync(New Uri("AppData/Counter.xml", UriKind.Relative))

    End Sub

Public Event OpenWriteCompleted As OpenWriteCompletedEventHandler


 Public Sub Load_CounterComplett(ByVal sender As Object, ByVal e As OpenReadCompletedEventArgs)
        Dim V As New WebClient
        Dim xml As XDocument
        Dim e_xml As XElement
        Dim st As Stream = e.Result
 

        AddHandler V.WriteStreamClosed, AddressOf Write_CounterComplett

        xml = XDocument.Load(st)
        e_xml = xml.Element("Besucher")
' edit der Value
        e_xml.SetValue(e_xml.Value() + 1)

        TxtBesucher.Text = e_xml.Value() 

'mein versuch es zu speichern...

        V.OpenWriteAsync(New Uri("AppData/Counter.xml", UriKind.Relative))
        ' xml.Save(st)



    End Sub


    Private Sub Write_CounterComplett(sender As Object, e As WriteStreamClosedEventArgs)
        Throw New NotImplementedException
    End Sub