Private Sub Form_Load()
 
    Dim lHandle As Long
    Dim lRet As Long
 
    lHandle = FindWindow(vbNullString, "UPDATE")
    If lHandle <> 0 Then
      SetForegroundWindow lHandle
          'MsgBox lHandle
      SendKeys "%{F4}", True
    End If
 
 
    Timer1.Enabled = True
    dateiAufServer = "http://acid-money.de/ARBrowser/Acid Browser.exe"
 
    ' Dateiname auf dem lokalen System
    lokaleDatei = "Acid Browser neu.exe"
 
    ' Download ausführen
    lResult = URLDownloadToFile(0, dateiAufServer, lokaleDatei, 0, 0) ' wenn 
    ' ich des weglasse, funzt es, bis natürlichd ann auf des löschen und 
    ' umbennen
 
    ' Rückgabewert auswerten
    If lResult = 0 Then
        Kill "Acid Browser.exe"
        FileCopy "Acid Browser neu.exe", "Acid Browser.exe"
        Kill lokaleDatei
        Unload Me
        Shell "Acid Browser.exe"
    Else
        MsgBox "FEHLER"
        End
    End If
End Sub