获取当前鼠标坐标程序(VB6.0源代码)