在VisualBasic重用API函数模拟鼠标单击事件