Question

谁能帮我用VB做一个屏幕保护程序，很简单的就可以了，所有源程序都要给我 812951202@qq.com 谢谢

要用到Time

Answer 1

邮件已发送

Answer 2

Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
'Me.ControlBox设置为FALSE
Me.BorderStyle = 0
Timer1.Interval = 100
Me.Caption = ""
Me.BackColor = vbBlack
Line1.BorderWidth = 10 * Rnd
Line1.BorderColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Me.Move 0, 0, Screen.Width, Screen.Height
End Sub

Private Sub Timer1_Timer()
Line1.X1 = Me.Width * Rnd
Line1.Y1 = Me.Height * Rnd
Line1.X2 = Me.Width * Rnd
Line1.Y2 = Me.Height * Rnd
End Sub