方法1My.Computer.Network.DownloadFile("http://www.longda.cn/mm.rar", "d:\mm.rar", "", "", True, 300, True)方法2
        Dim client As WebClient = New WebClient()
        AddHandler client.DownloadFileCompleted, AddressOf myWebclient_DownloadFileCompleted
        AddHandler client.DownloadProgressChanged, AddressOf myWebclient_DownloadProgressChanged
        Dim uri As Uri = New Uri("http://www.longda.cn/mm.rar")
        client.DownloadFileAsync(uri, "d:\mm.rar")  '只有异步下载才可以激活进度条