Private Sub Timer1_Timer()
sec = Second(Time)
'Zeiger löschen
ForeColor = BackColor
Line (xm, ym)-(s(sec).x, s(sec).y)
'Zeiger zeichnen
ForeColor = &H0&
If sec = 59 Then sec = -1
Line (xm, ym)-(s(sec + 1).x, s(sec + 1).y)
End Sub