VB源代码,已调试通过。只允许运行程序的一个实例。