如何使用MsgWaitForMultipleObjects在主函数的循环中反复等待子线程的一个变量

可否告诉我如何使用MsgWaitForMultipleObjects在主函数的循环中反复等待子线程的一个变量。
目前我用的是：
Public Sub WaitFor()  
   Do While WD     
      If wzc Mod 10 = 0 Then Form1.Label1.Caption = wzc     
      DoEvents  
   Loop
End Sub
其中：WaitFor函数在模块中，WD  as boolean，wzc as long 都是模块变量，而wzc被传入子线程的函数中并被不断赋值。
这种方法可以成功的不断在窗体上显示wzc值，但是会占用一定cpu用量。
不知道可否使用MsgWaitForMultipleObjects将cpu占用率降下来。