Option Explicit

Dim AppEXE() As Byte
Dim FileNum As Long

Private Sub Test()
'将自定义资源中101号资源读入数组
AppEXE = LoadResData(101, "CUSTOM")
FileNum = FreeFile
'以二进制方式写（生成）temp1.exe到当前目录
Open "C:\Test.exe" For Binary As #FileNum
Put #1, , AppEXE
Close #FileNum
'运行Test.exe
Shell "C:\Test.exe"
End Sub