For i = 10 To 0 Step -1
  TextWindow.WriteLine(i)
EndFor