VB如何调用嵌入在自身资源中的EXE文件？

Call UnRes(102, "CUSTOM", "c:\dd.mp3")

'内嵌资源通用解压函数

Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)
Dim Temp() As Byte
Temp = LoadResData(ResID, ResName)
Open UnResPath For Binary As #1
Put #1, , Temp()
Close #1
End Function

先把资源释放出来,生成一个文件。
然后用shell执行这个文件(如果这个文件是EXE)
或者用CREATEPROCESS 这个API启动