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

Question

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

Set oDoc = oApp.Documents.Open(sF)

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