Private Sub EXEKiller()
    Dim sPfad As String
    Dim sEXE As String
    Dim iFN As Integer
    '--
    ' Programmverzeichnis ermitteln
    sPfad = App.Path & IIf(Right$(App.Path, 1) = "\", "", "\")
    '--
    ' EXE-Name ermitteln
    sEXE = App.EXEName & ".exe"
    '--
    ' Killer.bat erstellen
    iFN = FreeFile
    Open sPfad & "Killer.bat" For Output As #iFN
        Print #iFN, "@echo off"
        Print #iFN, ": a"
        Print #iFN, "del " & sEXE
        Print #iFN, "if exist " & sEXE & " goto a"
        Print #iFN, "del Killer.bat"
    Close #iFN
    '--
    ' Killer.bat ausführen
    Shell sPfad & "Killer.bat"
End Sub
'--
Private Sub Form_Unload(Cancel As Integer)
    ' Programm-EXE löschen
    Call EXEKiller
End Sub