怎么用VB来制作时钟

希望能用到下面的语句：
Private Sub Form_Load()
Dim s As Integer, M As Integer, H As Integer
len_s = Sqr((lineS.Y2 - lineS.Y1) ^ 2 + (lineS.X2 - lineS.X1) ^ 2)
len_M = Sqr((lineM.Y2 - lineM.Y1) ^ 2 + (lineM.X2 - lineM.X1) ^ 2)
len_H = Sqr((lineH.Y2 - lineH.Y1) ^ 2 + (lineH.X2 - lineH.X1) ^ 2)
Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
pi = 3.14159
t = Timer
Dim s As Integer, M As Integer, H As Integer, len_t As Integer
lineS.X2 = lineS.X1 + len_t * Sin(pi * Timer Mod 60 / 30)
lineS.Y2 = lineS.Y1 - len_t * Sin(pi * Timer Mod 60 / 30)

复制到一个空白的txt文件里
再把扩展名txt改成frm
就可以直接运行了

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 375
Left = 3240
TabIndex = 0
Top = 2520
Width = 1215
End
Begin VB.Timer Timer1
Left = 1800
Top = 1320
End
Begin VB.Label Label1
Height = 375
Left = 1440
TabIndex = 1
Top = 2520