執行主程式時被巢狀其中的另一個應用程式會被釋放出來，當然也可以轉而執行這個被釋放出來的應用程式，網上好多破解程式就是採用這種方法實現的。本文重點介紹如何將一個已經存在的應用程式巢狀到VB程式中。

新建工程，執行“外接程式”—“外接程式管理器”，選擇載入“VB6 資源管理器”並確定。點選工具欄上的“VB資源管理器”圖示開啟“VB 資源管理器”視窗。點選該視窗工具欄中的“新增自定義資源...”圖示，選取欲巢狀的程式後儲存資原始檔，該程式即會以預設的101資源號加入到自定義資源CUSTOM庫中。

程式碼如下：

Private Sub Form_Load()

Dim TAO() As Byte

Dim i As Long

'你的相關程式可以寫在這裡，作為示例當然也可空著。

If Dir(App.Path & "\ASPack!.exe") <> "" Then'欲釋放的程式已存在執行之並中斷主程式的執行

Shell App.Path & "\Aspack!.Exe", vbNormalFocus

Unload Me

End If

TAO = LoadResData(101, "CUSTOM") '將自定義資源中101號資源讀入陣列TAO

On Error GoTo 1

Open App.Path & "\Aspack!.exe" For Binary As #1 '寫巢狀的Exe檔案到當前路徑

For i = 0 To 198144- 1 '這裡的198144是被巢狀的Exe檔案準確位元組數（大小）

Put #1, ,TAO(i)

Next i

Close #1

Shell App.Path & "\Aspack!.Exe", vbNormalFocus '執行剛生成Exe

1

Unload Me

End Sub