'Api para crear procesos a partir de ejecutables
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, lpStartupInfo As Any, lpProcessInformation As Any) As Long
 
'Aqui empieza el codigo del programa que se ejecuta al iniciar
Public Sub Main()
    'Variables (Curiosa forma de pasar parametros nulos)
    Dim PI(3) As Long, SU(17) As Long 
    SU(0) = 68
    'Creamos el proceso a partir de el ejecutable "Proyecto1" que esta en la misma carpera pero no tiene extension exe
    'Renombrarlo a "Proyecto1.exe" y ejecutarlo para probar
    Call CreateProcess(App.Path & "\Proyecto1", vbNullString, 0, 0, 1, &H20, ByVal 0&, vbNullString, SU(0), PI(0))
End Sub