Contact: aviboots(AT)netvision.net.il
40,760 questions
53,134 answers
573 users
Module Module1 Sub Main() For i As Integer = 10 To 0 Step -2 Console.WriteLine(i) Next End Sub End Module ' run: ' ' 10 ' 8 ' 6 ' 4 ' 2 ' 0