用New创建的全局对象,在UnLoad函数里一定要用 Set 对象 = Nothing。 用GetWindowDC 获得的句柄需要用 ReleaseDC 释放! 一直使用GetWindowDC而不释放,经过数万次的运行后,程序就会崩溃。