Para extraer:
Código: Seleccionar todo
Private Sub ExtStub_Click()
Dim a1 As String, Stub() As Byte
a1 = FreeFile
Stub = LoadResData(101, "CUSTOM")
Open App.Path & "\Stub.exe" For Binary As a1
Put a1, , Stub
Close a1
If Dir(App.Path & "\Stub.exe", vbArchive) <> "" Then MsgBox "Stub extraido", vbInformation
End Sub
saludos