怎么用VB来制作时钟?

'只要在窗体上添加一个计时器，添加如下代码
Const PI = 3.1415926
Private Sub Form_Load()
Scale (-100, 100)-(100, -100)
Timer1.Interval = 1000
Form1.BackColor = &HFFFFFF
Timer1_Timer
Form1.Show
Form1.Refresh
Call Timer1_Timer
End Sub

Private Sub Form_Paint()
Call MyDraw
End Sub

Public Sub MyDraw()
Cls
Scale (-100, 100)-(100, -100)
For i = 0 To 2 * PI Step PI / 30
Form1.DrawWidth = 3
PSet (60 * Cos(-i), 60 * Sin(-i)), vbGreen
Next i
For i = 0 To 2 * PI Step PI / 6
Form1.DrawWidth = 6
PSet (60 * Cos(-i), 60 * Sin(-i)), vbRed
Next i
End Sub

Private Sub Form_Resize()
Form1.Refresh
End Sub

Private Sub Timer1_Timer()
Form1.Refresh
Form1.Caption = Time
s = Second(Time) * PI / 30
DrawWidth = 2
Line (0, 0)-(55 * Cos(-Second(Time) * (PI / 30) + PI / 2), 55 *