Not sure why you would want to do this, but the reason it doesn't work is because in your code it runs through all the sequence faster than you can perceive, then shows the last colour indefinitely.
No guarantees, but you could try something like:
dim startTime as Time
dim endTime as Time
dim...