Dim ErstesByte As String * 1
Dim Datei As String
Dim strPfad As String
 
Private Sub Command1_Click()
    Dim Ziel As String
    Ziel = Text1.Text
    Label2.Caption = Ziel
    strPfad = Text1.Text
    Text1 = strPfad
    Datei$ = Text1
 
 
    If Option1 = True Then ErstesByte$ = "X" Else ErstesByte$ = "M"
    Label1 = "Folgende .exe-Datei wird modifiziert : " & vbCrLf & Datei$
    If InStr(UCase$(Datei$), ".EXE") Then
    Dim DNr As Integer
    DNr = FreeFile
    Open Datei$ For Random As #DNr Len = 1
    Put #DNr, 1, ErstesByte
    Close #DNr
    End If
    End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
List1.AddItem "C:\Spiele\Ub.exe"
List1.AddItem "C:\Spiele\Quark.exe"
List1.AddItem "C:\Programme\htmleditor.exe"
End Sub