VB 延时等待一段时间没有执行结果自动执行下面代码

因为 CommonDialog.ShowSave 是 有模式的窗体。所以通常的方法不行。我认为一般有以下三个方法 。

1、自己模拟写一个 CommonDialog.ShowSave 窗体，然后到这个窗体上加上倒计时。这个比较简单，但做出来的东西，有时与系统的稍有不同。

2、使用多线程，打开这个对话框时，激活子线程，负责计时。当发现超时没有输入，通过API操作关闭这个对话框，然后再处理 。
比较有深度，最少我做不出来。

3、按第二点的思路，只是不使用 多线程，而是激活另一个程序来负责计时和关闭对话框。
难度比第二点在小很多。