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