Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim Version As Integer
        Version = 4
        Try
            My.Computer.Network.DownloadFile( _
              "http://ccman32web.webs.com/UltraGRSBot-Client/current.txt", _
              "/current.txt")
            My.Computer.Network.DownloadFile( _
            "http://ccman32web.webs.com/UltraGRSBot-Client/Download.txt", _
            "/Download.txt")
        Catch ex As Exception
            MsgBox("Fehler bei der Suche nach Updates! Überprüfe, ob eine" & _
              "Internetverbindung vorhanden ist und du den Clienten mit" & _
              "Administratorrechten ausgeführt hast! Möglicherweise liegt ein" & _
              "Problem mit dem .NET Framework vor oder die Update Seite" & _
              "existiert nicht mehr. Wenn das Problem weiterhin besteht," & _
              "installiere .NET Framework erneut auf deinem Computer! Aufgrund" & _
              "eines unbekannten Problems kann es auch sein, dass die Update" & _
              "Funktion auf deinem Computer nicht funktioniert.", vbCritical, _
              "Fehler")
'HIER WURDE DAS PROGRAMM IN DER ALTEN VERSION GESCHLOSSEN PER Application.Exit
        End Try
 
        Dim AktuelleVersion As Integer
        Dim objDateiLeser As StreamReader
        objDateiLeser = New StreamReader("/current.txt")
        AktuelleVersion = objDateiLeser.ReadToEnd()
        objDateiLeser.Close()
        objDateiLeser = Nothing
 
        Dim DownloadURL As String
        objDateiLeser = New StreamReader("/Download.txt")
        DownloadURL = objDateiLeser.ReadToEnd()
        objDateiLeser.Close()
        objDateiLeser = Nothing
 
        If AktuelleVersion > Version Then
            If (MsgBox("Es ist ein Update verfügbar! Soll die Download Seite" & _
              "geöffnet und der Client geschlossen werden?", vbYesNo, "Update" & _
              "verfügbar!")) = vbYes Then
                Kill("\current.txt")
                Kill("\Download.txt")
                Process.Start(DownloadURL)
                Application.Exit()
            End If
        End If
 
        Kill("\current.txt")
        Kill("\Download.txt")