Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As _
       System.ComponentModel.AsyncCompletedEventArgs) Handles _
       wc.DownloadFileCompleted
        Button_update.Enabled = False
        downloadbat = True
        MsgBox("Die Anwendung muss neu starten...", MsgBoxStyle.OkOnly)
        Form1.closefrage = False
        Process.Start("cmd", "/c update.bat")
Form1.Close()        
Me.Close()
     End Sub

@echo off
del /f /q "BZflag server liste.exe"
ren "BZflag server liste1.exe" "BZflag server liste.exe"
start "" "BZflag server liste.exe"
exit