求一个VB6.0的屏幕保护程序不要太复杂的，简单点的就好。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End '按键结束
End Sub

Private Sub Form_Load()
'Form1.BorderStyle = 0 '窗体时手动设置无边框
Form1.WindowState = 2 '最大化
Form1.BackColor = 0& '背景色
Timer1.Interval = 20
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
End '按鼠标结束
End Sub

Private Sub Timer1_Timer()
Form1.CurrentX = Form1.Width * Rnd
Form1.CurrentY = Form1.Height * Rnd '确定输出坐标
Form1.FontSize = 50 * Rnd
Form1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Form1.Print "*"
Static x As Integer
x = x + 1
If x = 200 Then
Form1.Cls '清屏
x = 0
End If