Module Module1
    Public TimeNow As Date = Date.Now

    Public mySec As Integer = TimeNow.Second
    Public myMin As Integer = TimeNow.Minute
    Public myHour As Integer = TimeNow.Hour
    Public FirstMin As Boolean = True
    Public FirstHour As Boolean = True

    Public myxAngel, myyAngel, myxMinAngel, myyMinAngel, myxHourAngel, myyHourAngel As Double
    Public myxLength, myyLength, myxMinLength, myyMinLength, myxHourLength, myyHourLength As Double
    Public MinTick = True
    Public HourTick = False
    Public FirstDamnedTick As Boolean = True
End Module
