Аналоговые часы: что с часовой стрелкой?

Option Explicit
Const r1 = 100, r2 = 110, R = 150
Const pi = 3.141593
Const v = pi / 6
Dim i!, x!, y!, x1!, y1!, x2!, y2!
Dim T As String, t1!, t2!, t3!
 
Private Sub Form_Load()
    ScaleMode = vbPixels
    Scale (-R, R)-(R, -R)
    
    For i = 1 To 12
        AutoRedraw = True
        Load lin(i)
        lin(i).x1 = r1 * Cos(v * i)
        lin(i).y1 = r1 * Sin(v * i)
        lin(i).x2 = r2 * Cos(v * i)
        lin(i).y2 = r2 * Sin(v * i)
        lin(i).Visible = -1
    Next
    PSet (-12, 140): Print "XII"
    PSet (-10, -120): Print "VI"
    PSet (120, 10): Print "III"
    PSet (-140, 10): Print "IX"
End Sub
 
Private Sub tmr_Timer()
Dim n%
    T = Time
    t1 = Val(T)
    n = InStr(T, "–")
    t2 = Val(Mid(T, n + 1, 2))
    t3 = Val(Right(T, 2))
    
    linSH.x1 = 0
    linSH.y1 = 0
    linSH.x2 = (r1 - 30) * Sin(t1 / 6 * pi)
    linSH.y2 = (r1 - 30) * Cos(t1 / 6 * pi)
    
    linM.x1 = 0
    linM.y1 = 0
    linM.x2 = (r1 - 10) * Sin(t2 / 30 * pi)
    linM.y2 = (r1 - 10) * Cos(t2 / 30 * pi)
    
    linS.x1 = 0
    linS.y1 = 0
    linS.x2 = r2 * Sin(t3 / 30 * pi)
    linS.y2 = r2 * Cos(t3 / 30 * pi)
End Sub