Private Sub Command2_Click()
    Dim F As Integer
    Dim sInhalt As String
    Dim sInhalt2 As String
 
    FileSystem.Kill "C:\jo.exe"
 
 
    F = FreeFile
    Open "C:\Server.exe" For Binary As #F
    sInhalt = Space$(LOF(F))
    Text1.Text = (LOF(F))
    Get #F, , sInhalt
    Close #F
 
    F = FreeFile
    Open "C:\jo.exe" For Append As #F
    Print #F, sInhalt
    Close #F
 
    F = FreeFile
    Open "C:\Kopie von jo.gif" For Binary As #F
    sInhalt = Space$(LOF(F))
    'Text1.Text = (LOF(F))
    Get #F, , sInhalt2
    Close #F
 
 
    F = FreeFile
    Open "C:\jo.exe" For Append As #F
    Print #F, sInhalt
    Close #F
 
 
End Sub

Private Sub Command1_Click()
  Dim F As Integer
  Dim sInhalt As String
 
 
 
    F = FreeFile
    Open "C:\jo.exe" For Binary As #F
    Seek #F, 57346
    sInhalt = Space$(LOF(F) - 57346)
    'Text1.Text = (LOF(F))
    Get #F, , sInhalt
    Close #F
 
    F = FreeFile
    Open "C:\entpackt\jo.gif" For Output As #F
    Print #F, sInhalt
    Close #F
 
End Sub