İhtiyacı olan üyelerimiz için şu şekilde çözüm üretebilirler:

Bir tane form üzerine buton ve progressbar ekleyin. İsimleri btnIndir ve prgIndirmeSureci olacak. Butonun click olayına aşağıdaki kodu ekleyin:

Dim client As WebClient = New WebClient

    AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged

    AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted

    client.DownloadFileAsync(New Uri("http://www.adres.com/IndirilecekDosya.rar"), Application.StartupPath + "\\DosyaninYeniAdi.rar")

    btnIndir.Text = "İndirme devam ediyor..."

    btnIndir.Enabled = False

Burada kullandığımız WebClient kütüphanesi için Import etmemiz gereken kütüphane ise System.Net olacak. Dosyanın adresini ve indirilecek yeri kendinize göre revize edersiniz.

Burada iki tane olay tanımlandı:
client_ProgressChanged ile client_DownloadCompleted ise şu şekilde olacak:

Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)



    Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())

    Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())

    Dim percentage As Double = bytesIn / totalBytes * 100



    prgIndirmeSureci.Value = Int32.Parse(Math.Truncate(percentage).ToString())



  End Sub

Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)



    MessageBox.Show("İndirme işlemi tamamlandı")

    btnIndir.Text = "İndir"

    btnIndir.Enabled = True



  End Sub

client_ProgressChanged ile dosya indirirken indirme oranına göre progressbar değerini arttırıyoruz. client_DownloadCompleted ile ise indirme işlemi tamamlanınca indirme tamamlandı diye mesaj verecek.