Private Sub wc_DownloadDataComplete(ByVal sender As Object, ByVal e As _
      DownloadDataCompletedEventArgs)
        ProgressBar1.Value = 100
        Try
            data = e.Result
        Catch ex As Exception
            MessageBox.Show(ex.InnerException.Message)
        End Try
    End Sub