VB6.0中使用Timer控件模拟多线程，如何对调用的通用函数加锁？

Question

VB里我用Timer模拟多线程，线程内要调用一个函数，需要对这个函数进行锁定，直到该线程释放再被其他线程调用，如何对这个函数加锁？关键字是什么？有没有实例啥的。

Answer 1

弄一个全局整形变量gLock，0表示空闲，1表示假线程1在使用，2表示假线程2在使用，……
假线程n在调用不能由多个假线程调用的函数前，添加
Dim after As Double
Dim Integer gLock
gLock=0
‘……
after = Now + 10# / 24# / 3600#
Do
DoEvents
if gLock=0 then
gLock=n
if gLock=n then
call yourfunc()
gLock=0
endif
else
If Now > after Then
exit do
endif
endif
Loop