Downloading z progress barem

[lukas2005]

Witam chcę zrobić aktualizacje mojego launchera mc i wiem jak pobierać normalnie ale jak to zynchronizować z progressbarem?

 

 

a oto kod:

Imports System.Net.Sockets
Imports System.Environment
Imports System.IO
Imports System.Net
Public Class Form2
    Dim WithEvents WC As New WebClient
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load



        Dim jar As String = "nazwa pliku do pobrania"
        Label3.Text = "Pobieranie"
        WC.DownloadFile(strona z której pobieram plik, jar)


       
    End Sub

    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        If ProgressBar1.Value = 100 Then
            Label3.Text = "Pobrano"
            MessageBox.Show("Pobrano. Prosę zainstalować pobrany plik w odpowiedni sposób i uruchomić ponownie launcher.", "AutoUpdater")
            Button1.Text = "Pobrano"
            Button1.Enabled = True

            Me.Hide()
            Form1.Show()
        End If
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label4.Text = ProgressBar1.Value
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

ogólnie ma to wyglądać tak włączam launcher on sprawdza czy jest aktualizacja i włącza okienko z kodem po wyżej nie wiem też jak zrobić żeby poczekał z 20 sekund zanim zacznie pobieranie

kod w oknie głównym aplikacji:

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

      SprawdzUpdate()
    
End Sub

Public Sub SprawdzUpdate()
        Dim kaktus As String = "lver.txt"
        Dim Klient As New Net.WebClient
        Dim Wersja As String = My.Computer.FileSystem.ReadAllText(kaktus)
        Dim Version As String
        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText(kaktus)
        Version = Klient.DownloadString("strona z plikem z którego sprawdzana jest aktualizacja")



        If Version > Wersja Then
            MessageBox.Show("Nowa wersja jest dostępna. Uruchamiam auto updatera", "AutoUpdater")
            Me.Hide()
            Form2.Show()

        Else
            MessageBox.Show("Brak nowej wersji do pobrania. Launcher i pliki sa aktualne", "AutoUpdater")

        End If


    End Sub

kod w tej chwili działa tak uruchamiam launcher sprawdzana jest aktualizacja pobieranie jest rozpoczynane a po pobraniu otwiera się okno autoupdatera co jest źle i jak temu zaradzić?

[Yamatano]

https://www.youtube.com/watch?v=zMrvCfS7854

https://www.youtube.com/watch?v=NQ8UM9CkY2Q