Codenstuff.com

Imports System.Net.webclient
Imports System.IO
Imports System.net
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim url As String = "https://sites.google.com/site/tvilsommeforetak/software/updatedownload.html"
        Dim pageRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        Dim pageResponse As WebResponse = pageRequest.GetResponse()
        Dim page As String = ""
        Using r As New StreamReader(pageResponse.GetResponseStream())
            page = r.ReadToEnd()
        End Using
        Dim WebUpdate As System.Net.WebClient
        WebUpdate = New System.Net.WebClient()
        AddHandler WebUpdate.DownloadProgressChanged, AddressOf OnDownloadProgressChanged
        AddHandler WebUpdate.DownloadFileCompleted, AddressOf OnFileDownloadCompleted
        WebUpdate.DownloadFileAsync(New Uri(page), Application.StartupPath & "\Updated.exe")
    End Sub
    Private Sub OnDownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
        Dim totalSize As Long = e.TotalBytesToReceive
        Dim downloadedBytes As Long = e.BytesReceived
        Dim percentage As Integer = e.ProgressPercentage
        ProgressBar1.Increment(percentage)
    End Sub
    Private Sub OnFileDownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        If e.Cancelled Then
        ElseIf Not e.Error Is Nothing Then
            MsgBox("There was a problem downloading the update,  please try again later.")
        Else
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "\Tick-Tock.exe") Then
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Tick-Tock.exe", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
            End If
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "\Updated.exe") Then
                My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Updated.exe", "Tick-Tock.exe")
            End If
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If My.Computer.FileSystem.FileExists(Application.StartupPath & "\Tick-Tock.exe") Then
            System.Diagnostics.Process.Start(Application.StartupPath & "\Tick-Tock.exe")
            Me.Close()
        End If
    End Sub
End Class