制作屏幕保护程序

1、打开VB，新建标准EXE工程。

2、将BorderStyle设置为None，将WindowState设置为Maximized

3、打开代码窗口，加上这几行代码：Private Sub Form_Load() Form1.WindowState = 2 '开始运行的时候把窗口最大化End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End '点击鼠标退出屏保End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) End '按任意键退出屏保End Sub

4、点击运行，你会发现程序全屏显示白屏；点击鼠标，会退出程序。