vb.net 2005 web客户端异步下载文件

 Private MyWebClient As WebClient
    Private Sub MyWebClient_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        If e.Error IsNot Nothing Then
            MessageBox.Show(e.Error.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf e.Cancelled = True Then
            MessageBox.Show("下载文件操作被取消", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("下载文件操作完成", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If
    End Sub
    Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
        Me.Progressbar1.Value = e.ProgressPercentage
        Me.Label4.Text = "已经下载" + e.BytesReceived.ToString + "字节,全部有" + e.TotalBytesToReceive.ToString + "字节"

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyWebClient = New WebClient
        AddHandler MyWebClient.DownloadFileCompleted, AddressOf MyWebClient_DownloadFileCompleted
        AddHandler MyWebClient.DownloadProgressChanged, AddressOf MyWebClient_DownloadProgressChanged

    End Sub

    Private Sub button1_click(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Me.progressbar1.value = 0
            Me.MyWebClient.DownloadFileAsync(New Uri(Me.TextBox1.Text), Me.TextBox2.Text)

        Catch ex As Exception

        End Try
    End Sub