Private Sub wc_OpenReadCompleted(ByVal sender As Object, ByVal e As OpenReadCompletedEventArgs)
If e.Error IsNot Nothing Then
OutputTextBlock.Text = e.Error.Message
Return
End If
Using s As Stream = e.Result
Dim doc As XDocument = XDocument.Load(s)
OutputTextBlock.Text = doc.ToString(SaveOptions.OmitDuplicateNamespaces)
End Using
End Sub
private void wc_OpenReadCompleted(object sender, OpenReadCompletedEventArgs e)
{
if (e.Error != null)
{
OutputTextBlock.Text = e.Error.Message;
return;
}
using (Stream s = e.Result)
{
XDocument doc = XDocument.Load(s);
OutputTextBlock.Text = doc.ToString(SaveOptions.OmitDuplicateNamespaces);
}
}