关于VB制作屏幕保护程序的问题

设计一个屏幕保护程序，显示当前的时间，该时间会在屏幕上移动并不断变化颜色。你还可以为该程序加上密码保护的功能。
我的油箱是:sm_shenming5200@126.com 能的话把工程发我

Private Sub Form_DblClick()
End
End Sub

Private Sub Form_Load()
Me.BorderStyle = 0
Me.WindowState = 2
Me.Label1.FontSize = 20
End Sub

Private Sub Timer1_Timer()
Me.Label1.Caption = Now()
End Sub

给你一个简单示例

把这段代码复制进去，再自己根据内容做个界面吧：Dim k, deltax, deltay As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End
End Sub

Private Sub Form_Load()
Timer1.Interval = 200 ' 设置时间间隔。
deltax = 200 ' 初始化变量。
deltay = 200
Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height
Text1.Width = 1200
k = 1

End Sub

Private Sub Timer1_Timer()
If k = 1 Then
If Text1.FontSize <= 96 Then
Text1.FontSize = Text1.FontSize + 4
Text1.Width = Text1.Width + 350

Else
k = 0
End If

Else