Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim save As New SaveFileDialog
save.Title = ("Downloader")
save.ShowDialog()
TextBox2.Text = save.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
httpclient = New WebClient
Dim sourgeURL = TextBox1.Text
Dim filedir = TextBox2.Text
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Try
httpclient.DownloadFileAsync(New Uri(sourgeURL), (filedir))
Catch ex As Exception
MsgBox("Fallito" + ErrorToString(), MsgBoxStyle.Critical)
End Try
End Sub

Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
End Class

Imports System.Net
Public Class Form1
Private WithEvents httpclient As WebClient