VS2022引用VB6开发的ActiveX DLL运行报COM异常如何解决

错误码0x800A0BEB是VB6运行时抛出的ActiveX对象创建失败错误，既然同环境下VB6 EXE可以正常调用CP4DLL，说明组件本身没有损坏，按以下步骤逐一排查配置即可：

• 修正项目目标平台架构
  VB6开发的所有原生ActiveX DLL均为32位架构，64位进程无法直接加载。

  1. 右键VB.NET WinForms项目选择「属性」，切换到「编译」页
  2. 取消勾选「首选32位」选项，将目标CPU直接设置为x86
  3. 清理项目后重新编译，优先测试这一步，80%以上的同类问题都是这个原因导致的。

• 补齐CP4DLL的运行依赖
  VB6 EXE能正常运行是因为安装包已经把CP4DLL依赖的VB6运行库、第三方OCX、配置文件都放到了EXE同级目录，而.NET项目默认的输出目录（bin\x86\Debug/Release）没有这些文件：

  1. 打开正常运行的VB6 EXE所在的安装文件夹，把除EXE文件外的所有DLL、OCX、INI/DAT配置文件全部复制到.NET项目的编译输出目录
  2. 对复制过去的未注册OCX/DLL，使用32位注册工具手动注册：以管理员身份打开命令提示符，执行C:\Windows\SysWOW64\regsvr32.exe "要注册的文件完整路径"，不要使用System32目录下的64位regsvr32。

• 确认线程单元状态匹配
  VB6编写的ActiveX DLL仅支持单线程单元（STA）模式运行，线程模型不匹配也会导致创建失败：

  1. 打开项目的Program.vb文件，确认入口方法上带有<STAThread>标记，标准代码如下：

  <STAThread>
  Shared Sub Main()
      Application.EnableVisualStyles()
      Application.SetCompatibleTextRenderingDefault(False)
      Application.Run(New MainForm())
  End Sub
  

  2. 如果需要在非UI线程创建CP4DLL的对象，要在线程启动前将线程单元状态设置为STA，不要在MTA线程中直接创建VB6 COM对象。

• 重新匹配注册正确版本的CP4DLL
  添加引用时如果选了其他路径下的CP4DLL副本，和系统中CLSID注册的路径不一致，也会触发该错误：

  1. 以管理员身份打开命令提示符，先注销旧的注册信息：C:\Windows\SysWOW64\regsvr32.exe /u "旧CP4DLL文件路径"
  2. 注册VB6 EXE目录下的那个经过验证可以正常工作的CP4DLL：C:\Windows\SysWOW64\regsvr32.exe "VB6 EXE目录下CP4DLL的完整路径"
  3. 移除.NET项目中现有的CP4DLL引用，重新从COM引用列表中选择CP4DLL添加，再重新编译项目。

• 排查权限上下文匹配问题

  1. 如果平时是普通权限双击运行VB6 EXE，不要以管理员身份启动Visual Studio调试项目，避免因权限上下文差异读取到错误的COM注册配置。
  2. 如果你的.NET程序本身需要管理员权限运行，要在管理员权限的命令提示符下重新执行一遍CP4DLL及所有依赖组件的注册操作。

内容的提问来源于stack exchange，提问作者Andrew Crabtree