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
