VB资源释放
例如要添加的程序是S.exe
  打开VB 选择VB资源管理器。。。添加自定义资源。。。。。
把S.exe放入
  写下以下代码。。。。
  
   Dim S() As Byte
    Dim Faile1 As Long
    Dim o1 As Long
    
    
    S() = LoadResData(101, "custom")
  '释放资源
    
    File1 = FreeFile
    Open "s.exe" For Binary Access Write As File1 '生成S。EXE 文件
        Put File1, , S()
    Close File1
shell s.exe
End Sub
程序可能会出错。