Private Sub Timer1_Timer()
    Const HH = 0
    Const MH = 13
    Const SH = 14
    Dim Angle
    Static LS
    If Second(Now) = LS Then Exit Sub
        LS = Second(Now)
        Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))                    '设置时针
        Line1(HH).X1 = 0
        Line1(HH).Y1 = 0
        Line1(HH).X2 = 0.3 * Cos(Angle)
        Line1(HH).Y2 = 0.3 * Sin(Angle)
        Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60))                      '设置分针
        Line1(MH).X1 = 0
        Line1(MH).Y1 = 0
        Line1(MH).X2 = 0.7 * Cos(Angle)
        Line1(MH).Y2 = 0.7 * Sin(Angle)
        Angle = 0.5236 * (75 Second(Now))          '设置秒针
        Line1(SH).X1 = 0
        Line1(SH).Y1 = 0
        Line1(SH).X2 = 0.8 * Cos(Angle)
        Line1(SH).Y2 = 0.8 * Sin(Angle)
        Form1.Caption = Str(Now())      '窗口显示精确的日期和数字化的时间
End Sub

这个地方总是错误，我不会改了，有会的吗，帮帮我，谢谢

 

Angle = 0.5236 * (75 Second(Now))

不算高手。。
但是 75和Second(Now)的运算关系式什么啊？