PARA OS QUE SABEM MUITO DE VB.NET ! PORFAVOOR !

Citação:

Imports System.Net
Public Class Form2
WithEvents webclient1 As New WebClient
WithEvents webclient2 As New WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim s As String = webclient1.DownloadString([Ô]http://waffetshirts.zz.mu/Waffe%20T-Shirts/versao[Ô])
If s > Application.ProductVersion Then
MessageBox.Show([Ô]Nova atualização encontrada: [Ô] & s)
MessageBox.Show([Ô]O programa vai baixar a nova atualização, que vai situar-se no seu Disco Local (C:\)[Ô])
webclient2.DownloadFileAsync(New Uri([Ô]http://waffetshirts.zz.mu/Waffe%20T-Shirts/Formul%C3%A1rio%20de%20Pedidos%20Waffe%20T-Shirts.rar[Ô]), [Ô]C:\Formulario.rar[Ô])
Else
MessageBox.Show([Ô]Nenhuma atualização encontrada[Ô])
End If
End Sub

Private Sub webclient2_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles webclient2.DownloadProgressChanged
ProgressBar1.Maximum = e.TotalBytesToReceive
ProgressBar1.Value = e.BytesReceived
End Sub

Private Sub webclient2_DownloadStringCompleted(sender As Object, e As DownloadStringCompletedEventArgs) Handles webclient2.DownloadStringCompleted
MessageBox.Show([Ô]Download concluido[Ô])
End Sub
End Class