'Show the tortoise --#1
Tortoise.Show()
'Make the tortoise go as fast as possible --#4
Tortoise.SetSpeed(10)
'Add Blue Violet to the Color Wheel --#7
ColorWheel.AddColor(Colors.BlueViolet)
'Add Violet to the Color Wheel --#8
ColorWheel.AddColor(Colors.Violet)
'Add Purple to the Color Wheel --#9
ColorWheel.AddColor(Colors.Purple)
'Do the following 75 times --#3
For i = 1 To 75
' Change the color of the line the tortoise draws the next color on the Color Wheel --#6
Tortoise.SetPenColor(ColorWheel.GetNextColor())
' Move the tortoise 5 times the current line number you are drawing --#5
Tortoise.Move(i*5)
' Turn the tortoise 1/3 of 360 degrees to the right --#2
Tortoise.Turn(360/3)
'Repeat --#3
EndFor
Program Listing: LHR719