Un pequeño programa escrito en VB necesita abrir otro archivo después de un botón. ¡Las dos cosas deben combinarse en un solo programa!

Primero agregue el archivo deseado en el editor de recursos y luego ingrese el siguiente contenido en Común: Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)

Dim Temp() As Byte

Temp = LoadResData(ResID, ResName)

Abra UnResPath para binario como #1

Coloque #1,, Temp()

Cerrar #1

Función final

Ingrese lo siguiente en el evento de carga del formulario Private Sub Form_Load()

Llame a UnRes(101, "CUSTOM", " c /x:\x.exe")

End Sub Crea un nuevo botón e ingresa el siguiente contenido

Private Sub Command1_Click()

Shell (" . c:\x.exe") 'Ejecutar el software

End Sub