Reader/Writer Locks in VB6

[oxenberg]

I'm trying to implement reader/writer locks in VB6. Does anyone have any code that does this? I found some sample C++ code at

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndllpro/html/msdn_locktest.asp

that I have converted into VB. However, my thread needs to take out both a read and a write lock and which in this implementation requires that the thread wait on an event twice, once for the readlock and once for the writelock. As a result, the thread cannot acquire both locks using this implementation. Anyway, if someone has already done and would like to share....

Thanks in any event.