'Show the tortoise --#1
Tortoise.Show()
'Make the tortoise go as fast as possible --#4
Tortoise.SetSpeed(10)
'The current color is violet --#6
color = Colors.Violet
'Do the following 25 times --#3
For i = 1 To 25
' Change the color of the line the tortoise draws to the current color --#6
Tortoise.SetPenColor(color)
' Move the tortoise 3 times the current line number you are drawing --#5
Tortoise.Move(i*3)
' Turn the tortoise 90 degrees to the right --#2
Tortoise.TurnRight()
' Darken the current color #7
color = Colors.Darken(color)
'Repeat --#3
EndFor
Program Listing: CRN770