[VB.NET] كيف اربط البروجريس بار بامر معين

كود :

Label1.Text = update.DownloadString("https://dl.dropbox.com/s/pge4x6b8owk3kai/update4.txt?dl=0")

        If Label1.Text = "true" Then

            Timer1.Stop()

            MsgBox("يوجد تحديث جديد اجباري , لا يمكنك استخدام البرنامج الا  بعد التحديث , اضغط موافق للمتابعة", MsgBoxStyle.OkOnly)

كود :

Public Class Form1



    Private WithEvents wc As New Net.WebClient



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        wc.DownloadFileAsync(New System.Uri("https://dl.dropbox.com/s/pge4x6b8owk3kai/update4.txt?dl=0"), Application.StartupPath & "\update4.txt")

    End Sub



    Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged

        Me.ProgressBar1.Value = e.ProgressPercentage

    End Sub



    Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted

        Label1.Text = IO.File.ReadAllText(Application.StartupPath & "\update4.txt")

        If Label1.Text = "true" Then

            MsgBox("يوجد تحديث جديد اجباري , لا يمكنك استخدام البرنامج الا  بعد التحديث , اضغط موافق للمتابعة", MsgBoxStyle.OkOnly)

        End If

    End Sub



End Class