VB genera otro archivo EXE

Programa externo - Administrador de programas externos - VB6 Explorer - Seleccione Cargar

Haga clic en el icono verde en la barra de herramientas (VB Explorer) ~ el primer signo de interrogación en el lado izquierdo del cuadro de diálogo

Agregar un recurso personalizado Seleccione un archivo .exe y agréguelo

En el código del formulario B

Dim fname As String

Subcomandos privados como Stringexe se le agrega el archivo

En el código del formulario B

Dim fname As String

Private Sub command1_click()

Dim v

Dim byt() Como Byte

fname = "z:\test.exe"

Si Dir(fname) = "" Entonces

v = LoadResData(101, "CUSTOM")

byt = v

Abrir fname para binario como #1

Poner #1, 1, byt()

Cerrar #1

Finalizar si

Finalizar sub