AOM对象创建不成功

      今天用VB写创建AOM对象,代码执行如下的时候就报错：

      Set Qtp_App=CreateObject("QuickTest.Application")'报错 ActiveX控件不能创建

      单独打开qtp没有问题，就是以上代码会出现问题，最后找了下论坛中的是否有人遇到同样的问题，也没有最后给解决办法，最后自动动手丰衣足食，分析结果是直接注册QTObjectModel.dll也不能解决以上问题，分析应该是有相关dll对象耦合在一起了，所以重新注册相应的dll就可以解决了，大胆推断后，然后就是小心求证，最后问题解决

      解决方法尝试如下：重新执行C:\Program Files\Mercury Interactive\QuickTest Professional\bin\QuickTestProfessional.bat，也就是重新注册qtp dll,执行完毕后执行代码，没有报错