Imports System.Net 'To be able to use network related functions.
 
 
 
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 'To be able to download the content from the 
        ' latest version file you have stored.
        Dim LatestVersion As String = web.DownloadString( _
          "http://www.comptalk.de/version.txt") 'To download the Lastest 
        ' Version from a specified URL.
        Dim CurrentApp As String = My.Application.Info.Version.ToString 'Gets 
        ' the applications current version
        Dim DisplayVersion As String = String.Empty
 
        Using Key As Microsoft.Win32.RegistryKey = _
          Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
          "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\VLC media" & _
          "player", Microsoft.Win32.RegistryKeyPermissionCheck.ReadSubTree)
 
            If Key IsNot Nothing Then
                DisplayVersion = CStr(Key.GetValue("DisplayVersion"))
            End If
            MsgBox(DisplayVersion)
        End Using
 
 
 
        If CurrentApp < LatestVersion Then 'If the applications current version 
        ' is less than the Latest version Then it will update, otherwise just 
        ' do nothing or w/e you want.
 
            If MessageBox.Show("A new update is available!" & vbNewLine & _
              "Would you like to update?", "LE21 - Auto Updater", _
              MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _
              Windows.Forms.DialogResult.Yes Then 'Message box dialog asking 
            ' the user if they wish to update or not.
                My.Computer.Network.DownloadFile( _
                  "http://ftp.free.org/mirrors/videolan/vlc/last/win64/vlc-2.1" & _
                  "5-win64.exe", Application.StartupPath & _
                  "\Updates\update.exe", "", "", True, "2000", True) 'If they 
                ' choose Yes, it will download the latest version exe
                MsgBox("The update has been downloaded!" & vbNewLine & "The" & _
                  "application will now Exit.") 'telling the user the app will 
                ' close
                System.Diagnostics.Process.Start("Updates\update.exe")
                End 'exits application
            Else
                'If they choose No
                End
            End If
 
        Else
            MsgBox("Program is up to date") 'anything other than the current 
            ' applications version being less than the latest version.
        End If
    End Sub
 
End Class