Public Class Form1
    Private web As New System.Net.WebClient()
 
    Private VersionFilePath As String = _
      "https://drive.google.com/file/d/0B9nqNVbSYwrBRFo2b2dsNjZ6cjA" & _
      "/view?usp=sharing"
    Private UpdateDownloadPath As String = "https://www.dropbox.com/Pfad.exe" & _
    "?dl=0"
    Private SaveFileName As String = Application.StartupPath & "\update.exe"
 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        'If Not IsExecutedInIDE() Then 
        CheckForUpdate()
    End Sub
 
    Private Sub CheckForUpdate()
        If TestInternetConnection() Then
            Try
                Dim version As Integer = CInt(web.DownloadString( _
                  VersionFilePath))
                Label2.Text = version
                If version > CInt(lbl_Version.Text) Then
                    'Label2.Text = version
                    web.DownloadFile(UpdateDownloadPath, SaveFileName)
                    MessageBox.Show("Das Update wurde erfolgreich" & _
                      "heruntergeladen")
                    Process.Start("update.bat")
                    Application.Exit()
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Else : MessageBox.Show("keine Internetverbindung")
        End If
    End Sub
 
    Private Function TestInternetConnection() As Boolean
        Try
            Dim ping As New System.Net.NetworkInformation.Ping()
            ping.Send("google.de")
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
 
    Private Function IsExecutedInIDE() As Boolean
        Return Debugger.IsAttached
    End Function
 
End Class