首先，先做下广告 http://www.pyb.net.ru 这个是我的论坛 请大家多支持 

   本站正在初步建设阶段  如有网站愿意跟我站交换链接的请加 qq: 373168212

/////////////////////////////////////////////////////////////////////////
   昨天有个网友说想把“一个外部程序放到自己写的程序里面  要用的时候再释放

出来调用  关闭程序的时候便删除那个文件“ 这种方法怎么实现呢  其实挺简单的

我们先把文件作成资源文件（.res）然后再程序里面  然后去释放这个资源  接着调用就可以了

看我操作   我先设计好界面  我是拿QQ88.exe这个作为例子的  然后我们在外部程序 里面的外

部程序管理器里面加在 vb6资源编辑器  然后会出现这么个东西  我们现在把qq88.exe 作成资源文件   我们选择哪个 添加自定义资源   然后保存就可以了  在相关文档中就出现了这个资源了   接下来就是怎么释放他  也是我们讲的主题了  具体看下面代码  我们测试仪下 看到没有  这个释放出来了   然后我们关闭 的时候 便会调用Kill ("s.exe")  来删除文件 
这里你们释放的目录是可以自定义的 

好了 教程就到这里了  大家支持下我网站噢  http://www.pyb.net.ru
   
程序完整代码如下：
//////////////////////////////////////////////////////////////////////////

Private Sub Command1_Click()
Dim App1() As Byte   
If Dir(App.Path & "\S.exe") = "" Then  '检测是否存在s.exe
  App1 = LoadResData(101, "CUSTOM")   '如果为空,读取资源文件中的(101,"custom")字符串   Open App.Path & "\S.exe" For Binary As #2 '打开 s.exe用二进制的方式写入数据
  Put #2, , App1      
  Close #2  '关闭 这里还要说明一下  这里所谓的打开并不是指运行  而是用二进制方式打开文件写入原始数据  
End If
Shell "s.exe", vbNormalFocus    '运行这个文件
End Sub

Private Sub Form_unLoad(Cancel As Integer) '窗体卸载时删除这个文件
Kill ("s.exe")
End Sub

/////////////////////////////////////////////////////////////////////////