Sub Draw()
Dim TimeString As String
Dim WhichOrder(9) As Byte
WhichOrder(1) = 1: WhichOrder(2) = 10: WhichOrder(3) = 18: WhichOrder(4) = 20: WhichOrder(5) = 29: WhichOrder(6) = 37: WhichOrder(7) = 39: WhichOrder(8) = 48
Do
TimeString = Time
For n = 1 To 8
If (n <> 3 And n <> 6) Then
DrawNumber CByte(Mid(TimeString, n, 1)), WhichOrder(n)
Else
DrawPoint WhichOrder(n)
End If
Next n
Range("A18").Select
Application.Wait (Now + TimeValue("0:00:01"))
seconds = seconds + 1
Loop Until (seconds = 60)
End Sub
