问Visio 2013预览版和VB6: Microsoft Office无法验证此产品的许可证

EN

我正在尝试针对Visio 2013测试我们的应用程序，但遇到了一个问题，它在Visio 2013预览版中引发了一条消息："Microsoft Office无法验证此产品的许可证。您应该使用控制面板修复office程序“。

我有一个简单的VB6表单，上面有一个按钮。在按钮事件处理程序中，我有以下代码。

Private Sub Command3_Click()
   Dim visoObj As Visio.Application

   Set visoObj = New Visio.Application

   visoObj.Visible = True
End Sub

单击打开Visio应用程序，但显示消息"Microsoft Office无法验证此产品的许可证。您应使用控制面板修复office程序“。

我已检查产品是否已激活，并尝试从添加/删除程序中卸载/重新安装/修复/重新输入密钥。

我也试过

cscript ospp.vbs /act

如http://answers.microsoft.com/en-us/office/forum/office_home-office_install/office-cannot-verify-the-license-for-this-product/3bb811ad-29d6-49c7-a3d0-4634c154d155?msgId=be64dcd6-ab02-4388-bb09-c9ab41ffe9ab中所述

有没有人安装了VB6和Visio2013预览版？

如果您尝试将Visio2013绘图控件添加到VB6窗体上，也会收到此消息。

我还成功地尝试了类似的代码来打开Word 2013 Preview和Excel 2013 Preview。这样做效果很好。我就是搞不清楚Visio到底出了什么问题。

有什么帮助吗？