Ｖｉｓｕａｌ
Ｂａｓｉｃ 所编写出的任何Ｗｉｎｄｏｗｓ 应用程序都可以生成屏幕保护程序。但并非通常编写的Ｗｉｎｄｏｗｓ 应用程序都可以直接生成屏幕保护程序，欲使之发挥屏幕保护程序的作用，还必须在应用程序的编写中考虑到屏幕保护程序的一般特性。
１、屏幕保护程序运行时，鼠标光标被自动隐藏，在程序结束时，光标显示。
２、当单击、移动鼠标或按下键盘时，屏幕保护结束，回到正常操作状态。
为了实现这些特性，在编写Ｖｉｓｕａｌ Ｂａｓｉｃ应用程序时，可以采用如下方法进行改动。
改变窗体属性
通常Ｖｉｓｕａｌ Ｂａｓｉｃ 应用程序的窗体都采用有边框的窗体外观，但作为屏幕保护程序，应设置窗体为无边框，且为最大化。
隐藏及显示鼠标光标
在Ｖｉｓｕａｌ Ｂａｓｉｃ 应用程序中隐藏及显示鼠标光标需要应用Ｗｉｎｄｏｗｓ 的ＡＰＩ 函数，该函数名为ＳｈｏｗＣｕｒｓｏｒ。Ｗｉｎｄｏｗｓ
通过更改该函数所维护的一个变量中的计数来跟踪鼠标光标的可视性，每次用参数值Ｔｒｕｅ调用ＳｈｏｗＣｕｒｓｏｒ 函数时，该计数值递增，当用参数值Ｆａｌｓｅ
调用时，计数值递减，若计数小于或等于零时，鼠标光标自动隐藏。
检测鼠标移动
Ｖｉｓｕａｌ Ｂａｓｉｃ 中有一个检测鼠标移动的对象事件———ＭｏｕｓｅＭｏｖｅ 事件。ＭｏｕｓｅＭｏｖｅ
事件通常在应用程序启动时就会触发，有时在鼠标并未移动的情况下，ＭｏｕｓｅＭｏｖｅ 事件仍有可能被触发。因此如果在程序中直接用ＭｏｕｓｅＭｏｖｅ
事件检测鼠标是否发生了移动，并不能正确反映鼠标的移动状况。应该在ＭｏｕｓｅＭｏｖｅ 事件中编写代码加以控制。
为了正确反映鼠标的移动，先用变量记录下程序运行时的鼠标当前位置，然后用另外一组变量记录鼠标移动后的位置，当鼠标移动前后的位置差大于一定范围时，触发ＭｏｕｓｅＭｏｖｅ事件。
Ｔｉ ｍｅｒ 控件的Ｔｉ ｍｅｒ 事件用于控制图片的高度变化，从而在程序运行时出现图片的逐步消失和逐步显示功能。
程序编写完成后，把它编译成屏幕保护程序。编译成功后，把它移到Ｗｉｎｄｏｗｓ 的系统之下，这时打开Ｗｉｎｄｏｗｓ
的控制面板，在“屏幕保护程序”页，便可看到该程序已被添加进去，可以像其他的Ｗｉｎｄｏｗｓ 屏幕保护程序一样运行它了。
可见，屏幕保护程序的制作不仅简单，而且非常有趣。
在你闲暇的时候，自己尝试制作屏幕保护程序，可以为你的工作和学习带来无穷的乐趣。
（河南省济源市小浪底建管局原观室李宗卫４５４６８１）