Public Class Form1
    Function TestInternetConnection()
        Dim ping As New Net.NetworkInformation.Ping
 
        Try
            ping.Send("google.de")
            Return True
        Catch ex As Exception
            Return True
        End Try
    End Function
 
    Sub RunUpdate()
        Dim request As System.Net.HttpWebRequest = _
          System.Net.HttpWebRequest.Create( _
          "https://www.dropbox.com/s/jtnutqmanps8ukm/Version.txt?dl=0")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
 
        Dim streamreader As System.IO.StreamReader = New System.IO.StreamReader( _
          response.GetResponseStream())
 
        Dim newversion As String = streamreader.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion
 
        If newversion.Contains(currentversion) Then
            Me.Show()
        Else
            Dim web As New Net.WebClient
            Dim version As String = web.DownloadString( _
              "https://www.dropbox.com/s/jtnutqmanps8ukm/Version.txt?dl=0")
            version = CInt(version)
            Dim path As String = _
              "https://www.dropbox.com/s/nwqlmzxc2tjp8n4/Usseltaler-Sch%C3%BCt" & _
              "en.exe?dl=0"
            Try
                My.Computer.Network.DownloadFile(path, Application.StartupPath _
                  & "/[Update" & version & "]" & "Usseltaler-Schützen.exe")
                End
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End If
    End Sub