设置在VB6中运行代码的最长时间

设置在VB6中运行代码的最长时间,vb6,Vb6,我有一行代码可以打开word文档,但偶尔,这段代码会失败并无限期地锁定整个程序 Set oDoc = oApp.Documents.Open(sF) 理想情况下,我希望能够在经过一定时间后中止这一行代码。我研究了一些使用VB6的多线程示例,但没有取得多大成功。由于这是一个阻塞调用,所以在VB6中没有这么多控制。基本上,它会被阻止,等待Word中发生某些事情,直到它返回,VB6应用程序无法执行任何操作。Word可能正在显示一个对话框,但您无法看到它-请尝试更改它/应用程序的可见性/模式

我有一行代码可以打开word文档,但偶尔,这段代码会失败并无限期地锁定整个程序

Set oDoc = oApp.Documents.Open(sF)

理想情况下,我希望能够在经过一定时间后中止这一行代码。我研究了一些使用VB6的多线程示例,但没有取得多大成功。

由于这是一个阻塞调用,所以在VB6中没有这么多控制。基本上,它会被阻止,等待Word中发生某些事情,直到它返回,VB6应用程序无法执行任何操作。Word可能正在显示一个对话框,但您无法看到它-请尝试更改它/应用程序的可见性/模式