Option Explicit
Dim LS$, CheminOrg$

Private Sub CmdLance_Click()
Dim k As Integer, TableOctets() As Byte
'Récupère un tableau d'octet contenant la ressource
TableOctets = LoadResData(101, "EXECUTABLE")
'Enregistre la ressource
k = FreeFile
Open CheminOrg & "EXErecupéré.exe" For Binary As #k
Put #k, , TableOctets
Close #k
Erase TableOctets
TimLance.Interval = 1500
End Sub

Private Sub Form_Load()
LS = Chr(13) & Chr(10)
CheminOrg = App.Path
If Right(CheminOrg, 1) <> "\" Then
CheminOrg = CheminOrg & "\"
End If
End Sub

Private Sub TimLance_Timer()
TimLance.Interval = 0
Dim RetVal
RetVal = Shell(CheminOrg & "EXErecupéré.exe", 1)
End Sub