要借助同步函数:http://www.foxtable.com/mobilehelp/topics/3270.htm
增加一个全局变量
Public TCount As Integer
增加一个同步函数,比如名称【同步1】。代码为:
TCount = TCount - 1
"函数2、3、4"里面最后增加一句代码
……
Functions.BeginSyncExecute("同步1")
函数1代码改为:
TCount = 3
functions.AsyncExecute("函数2")
functions.AsyncExecute("函数3")
functions.AsyncExecute("函数4")
do while TCount > 0
Application.DoEvents
loop