[Pytanie] Progressbar w Minecraft Launcher

[dominik980-9]

Witam,

Jak do tego kodu dodać progressbar ściągania plików

 

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

txtram.Text = My.Settings.ram

txtnick.Text = My.Settings.Nick

Dim client As New Net.WebClient

Dim nowawersja As String = client.DownloadString("http://minecraftftp.cba.pl/wersja.txt")

If nowawersja > My.Settings.Wersja Then

If MsgBox("Chcesz pobrać nową wersję?", vbQuestion + vbYesNo, "Wersja") = vbYes Then

Dim client1 As WebClient = New WebClient

Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/u/56737755/.minecraft.zip"), appData & "/.minecraft.zip")

Unzip(appData & "/minecraft.zip", appData)

My.Settings.Wersja = nowawersja

Else

MsgBox("Nowa wersja to " & nowawersja)

End If

End If

End Sub