因为隐藏的控件不能相应MouseMove时间，VB也没有提供MouseExit（鼠标移出）事件，所以只能使用以下方法模拟这个行为（这是我目前知道的唯一方法）：
基于18个网页-相关网页
应用推荐
模块上移
模块下移
不移动