Imports System.Net
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub
Public WithEvents download As WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
download = New WebClient
download.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)
End Sub
Private Sub download_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
End Class