制作屏幕保护程序

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

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

3、打开代码窗口，加上这几行代码：

Private Sub Form_Load()

    Form1.WindowState = 2 '开始运行的时候把窗口最大化

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    End  '点击鼠标退出屏保

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    End '按任意键退出屏保

End Sub

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

1、这时，你可以在代码界面编程，你可以加一些图形(Shape)和动画，你也可以弄图片。

我的例子和效果：

2、生成EXE，然后把exe的后缀名改成.scr

然后右键你的屏保程序，点击安装。