VB6多线程,关键段操作

VB6多线程，关键段操作OptionExplicitDeclareFunctionGetLastErrorLib"kernel32"()AsLong'DeclareFunctionCloseHandl