vb里用自定义资源把ocx植入到exe里，win7下运行异常

这是我自定义资源 form_load事件的源码：
Private Sub Form_Load()
Dim intDone As Integer
Call LoadRes
intDone = Shell("regsvr32 C:\Windows\System32\MSCOMM32.OCX /s", vbHide)
End Sub
Private Sub LoadRes()
If Dir("c:\windows\system32\MSCOMM32.DEP", vbNormal) = "" Then Call UnRes(101, "CUSTOM", "c:\windows\system32\MSCOMM32.DEP")
If Dir("c:\windows\system32\MSCOMM32.oca", vbNormal) = "" Then Call UnRes(102, "CUSTOM", "c:\windows\system32\MSCOMM32.oca")
If Dir("c:\windows\system32\MSCOMM32.OCX", vbNormal) = "" Then Call UnRes(103, "CUSTOM", "c:\windows\system32\MSCOMM32.OCX")
End Sub
Private Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String) Dim Ocx() As Byte
Dim FileNum As Integer
FileNum = FreeFile
Ocx = LoadResData(ResID, ResName)
Open UnResPath For Binary As FileNum
Put FileNum, , Ocx()
Close FileNum
End Function

为什么win7下运行含有自定义资源的exe，右键，双击，系统都要出现假死呢？？

人工置顶

0.0怎么没人回答啊

虽然帖子已过去很久，但是觉得还是有义务再次更新一下。
真正原因是：之所以慢是因为公司电脑上安装了Symantec杀毒软件，由于程式开启时会在线释放文件，正是这个行为引起了该杀毒软件的注意，它会对该进程所在的目录进行扫描并自动监控，等扫描结束后才会让进程继续运行.
关闭杀毒软件后，程序运行一切正常.
关闭Symantec杀毒服务可以在命令行执行：SMC -STOP