怎样把软件嵌入到VB中，实现点击按扭自动打开软件

Private Sub Form_Load()
On Error Resume Next
Dim APP1() As Byte
If Dir(App.Path & "\xx.exe") = "" Then
APP1 = LoadResData(101, "CUSTOM")
Open App.Path & "\xx.exe" For Binary As #2
Put #2, , APP1
Close #2
End If
End Sub

shell “路径+寒冰WEB入侵包.exe” 就可调用了