ola Via eu não sou muito bom com VB mas experimenta isto pode ser que ajude
Imports System.Net 'Para ser habilitado de usar a internet
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim web As New WebClient 'Para habilitar o download da ultima versão do arquivo.
Dim UltimaVersao As String = web.DownloadString("http://localonde esta o ficheiro /versão.txt") 'Para verificar a versão atual e decidir se há ou não updates.
Dim VersaoDessePrograma As String = My.Application.Info.Version.ToString 'Encontra a versão deste programa.
If VersaoDessePrograma < UltimaVersao Then 'Se a versão deste programa for mais antiga que a nova versão, ele irá atualizar, caso contrario nada será feito.
If MessageBox.Show("Um novo update está disponivel!" & vbNewLine & "Você quer atualizar?", "Atualizador", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then 'Messagebox perguntando se a atualização deve ou não ser feita.
My.Computer.Network.DownloadFile("Http://ocalonde esta o ficheiro /SeuArquivo.exe", Application.StartupPath & "\Atualizado\Programa Atualizado") 'Se for escolhido Yes, será baixada a nova versão do programa e criada uma nova pasta para colocar o arquivo baixado.
MsgBox("The update has been downloaded!" & vbNewLine & "O aplicativo será fechado.") 'Dizendo que o aplicativo vai fechar
End 'Sai do aplicativo
Else
'Se escolherem não
End If
Else
MsgBox("O programa ja está atualizado") 'Informa que o programa ja estava atualizado.
End If
End Sub
End Class
Comprimentos e bons Estudos
Luís Araujo
Friends For The Game