高手请回答：VB多线程互斥信号问题

[Garfield]

建立线程 CreateThread
建立互斥体 CreateMutex
检查是否有信号 ???
占用信号 OpenMutex ???
执行 .....
等待直到有信号 WaitForSingleObject
释放信号 ReleaseMutex

建立了线程以后，如果要访问一个变量，要怎样先占用一个信号，表示独占这个资源？
还有在占用之前怎样检查资源是否已经被占用，等待其他线程释放再占用？

最好给出源代码，另给100分。谢谢！！

[Garfield]

能给代码我吗？
先给42分，谢谢！