程序代码 打开VB 资源编辑器，新建，点击”添加自定义资源”，浏览我需要引入的EXE文件，然后修改属性，类型改为”EXE”， 包括引号哦，标识号为默认，只要不重复就行了。然后就是写代码，添个按钮功能是：点击后他会将我引入的exe文件， 复制到 D盘。可使用相对路径

Private Sub Command1_Click()
    Dim TempFile() As Byte
    Dim intFile As Long
    TempFile = LoadResData(101, "EXE")
    intFile = FreeFile()
    Open "D:\myrdp.exe" For Binary Access Write As #intFile
    Put #intFile, , TempFile
    Close #intFile
End Sub
//以下是示例
Private Sub Command1_Click()
    Dim TempFile() As Byte
    Dim intFile As Long
    TempFile = LoadResData(101, "EXE")
    intFile = FreeFile()
    Open App.Path & "\句柄检测.exe" For Binary Access Write As #intFile
    Put #intFile, , TempFile
    Close #intFile
End Sub
Private Sub Command2_Click()
Shell App.Path & "\句柄检测.exe"
Shell App.Path & "\测试.exe"
End Sub

示例:
EXE文件包含进VB中