Problem Z Update

[Kolumb_PL]

Mam taki kod:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("Gra.exe")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Sprawdzanie Aktualizacji..."
        Button1.Enabled = False
        Try
            Dim File As String = Application.StartupPath & "version.txt"
            Dim MyVer As String = My.Application.Info.Version.ToString
            My.Application.Info.Version.ToString()
            If My.Computer.FileSystem.FileExists(File) Then
                My.Computer.FileSystem.DeleteFile(File)
            End If
            My.Computer.Network.DownloadFile("https://dl.dropboxusercontent.com/s/muyz6ppqoan23zh/version.txt", File)
            Dim LastVer As String = My.Computer.FileSystem.ReadAllText(File)
            If Not MyVer = LastVer Then
                Timer1.Start()
                My.Computer.Network.DownloadFile("", "")
                TextBox1.Text = "Zaktualizowano!"
                Button1.Enabled = True
            Else
                TextBox1.Text = "Posiadasz najnowszą wersję programu"
                Timer1.Stop()
                Button1.Enabled = True
            End If
        Catch
            TextBox1.Text = "Błąd Podczas Pobierania"
            Timer1.Stop()
        End Try
    End Sub
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
End Class

Tylko że gdy wersja jest ta sama to wszystko jest ok ale jak podwyższam wersje na serwerze od razu pokazuje się 

TextBox1.Text = "Błąd Podczas Pobierania"

A i chciałbym żeby ProgressBar1 "rozszerzał" się w miarę tempa pobierania pliku

[Kolumb_PL]

@sorry za spam ale tera wgl nie pobiera danych. I proszę  także o wyjaśnienie w dziale Visual Basic jestem nowy

[kosmo53]

Robisz z igły widły :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("Gra.exe")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Sprawdzanie Aktualizacji..."
        Button1.Enabled = False
         Dim client As New Net.WebClient
        Dim Wersja As String = My.Computer.FileSystem.ReadAllText("version.txt")
        Dim nowawersja As String = client.DownloadString("'link_do_wersjii")
        If nowawersja > Wersja Then
msgbox("Pobieranie nowej wersji")
WC.DownloadFileAsync(New Uri("'URL'"), 'Adres_do_aktualizacjii')
Else
            msgbox("Aktualizacja niedostępna")
    End Sub
    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

i jeszcze pod public class:

Dim WithEvents WC As New WebClient

jeśli są jakieś problemy napisz na PW