方法一程序发布前打包,一切都解决了
方法二在form load事件中加入如下代码 
If Dir(Environ("Windir") & "\FileName.OCX") = "" Then
FileCopy App.Path & "\FileName.OCX", Environ("Windir") & "\FileName.OCX"
Shell "regsvr32.exe /s " & Environ("Windir") & "\FileName.OCX"
End If