如何把程序用道德OCX存成资源放在EXE中哇！

Question

我用VB写了一个程序，编译后EXE才100k左右，再看那些控件和运行库！靠！ 3，4个总共3000多K我知道msvbvm60.dll这个程序没办法省了，我只是想把myOCX1.OCX,myOCX2.OCX,myOCX3.OCX这三个文件当作资源文件，放在EXE中，等EXE运行的时候能把这三个ocx自动解到程序运行目录下。运行结束自动删除。（不删除也可以的）。主要是为了让整个程序简单点，就一个EXE。盼详细的代码哦
在线等，顶者有分。

Answer 1

１、菜单“Add-Ins”->“Add In Manager”，选中“VB 6 Resource Editor”，勾“Loaded/UnLoaded”和“Load on startup”->“OK”２、菜单“Tools”->“Resource Editor”->“Add Custom Resource...”，保存编译3、从资源文件中读出数据并另存为磁盘文件（Copy即可使用）
Public Sub resDataFile(Id, resType, FileName As String)
   Dim resFile() As Byte, FileNum As Integer
   On Error GoTo Err2
   resFile = LoadResData(Id, resType)
   FileNum = FreeFile
   Open FileName For Binary Access Write As #FileNum
   Put #FileNum, , resFile
   Close #FileNum
   Exit Sub
Err2: MsgBox Err.Description & "：" & Err.Number, vbInformation, "错误"
End Sub

Answer 2

最后的exe大小为原来的大小 + 所有加入的OCX的大小！