我做了个屏幕保护的程序，在VB里可以运行，为什么装到WINDOWS里过了一分钟后就只是个图标啊！~
希望高手们能告诉我为什么，哪里错了，程序肯定是没错的，VB里没问题，到底应该怎么样安装才可以啊！~

看看源码啊，没有源码如何帮忙？

Private startx As Integer
Private starty As Integer
Private isfirstmove As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub

Private Sub Form_Load()
isfirstmove = True

End Sub

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isfirstmove = True Then
startx = X
starty = Y
isfirstmove = False
Else
If Abs(startx - X) > 50 Or Abs(starty - Y) > 50 Then
Unload Me
End
End If
End If
End Sub
这个就是源代码了，希望高手帮帮忙啊，谢谢！~

做完之后，生成为 exe 文件，然后改名为 .scr 后缀的。

是的啊，我是这样搞的啊，但是有问题啊，朋友你可以把我的代码拷进去装到你的系统里试一下就知道什么原因了！~

在 Form_Load 事件中加上:
Private Sub Form_Load()
isfirstmove = True
Me.WindowState = vbMaximized
End Sub

然后再在窗体属性中把 ControlBox 设为 False，这样窗体无控制栏并且最大化，可使屏幕保护程序更逼真。