VB一个事件中执行到一半怎样等待另一个事件执行完毕再继续执行下面的语句?

Question

用Windows 的 Event
API(详细用法请看MSDN Library):
    CreateEvent
    CloseHandle
    SetEvent
    ResetEvent
    WaitForSingleObject设在事件A要等待事件B执行完毕后再继续执行：
(a) 在程序开始用CreateEvent建立一事件X；
(b) 在事件B的开始调用ResetEvent设置事件X；
(c) 在事件B的结束调用SetEvent触发事件X；
(d) 在事件A中要等B结束的地方调用WaitForSingleObject以等待X的触发（也就是B结 束）；
(e) 在程序结束的地方用CloseHandle关闭事件X。注：
1.如果发生事件A发生则事件B也一定发生的话，则（b）改为：
    (b) 在事件A的开始调用ResetEvent设置事件X；
2.如果A发生而B不一定会发生则，要在（d）中加入条件：
    if B发生 then
        WaitForSingleObject X事件句柄，INFINITE
    end if
  

Answer 1

用DOEVENTS不成吗？
public finished as boolean
........
sub xxx()
....
while finished
   DoEvents
WEnd
...
End Sub
VB用多线程同步麻烦