Contact: aviboots(AT)netvision.net.il
41,593 questions
54,235 answers
573 users
Module Module1 Sub Main() Dim i As Integer = 0 While i < 10 Console.WriteLine(i) i += 1 End While End Sub End Module ' run: ' ' 0 ' 1 ' 2 ' 3 ' 4 ' 5 ' 6 ' 7 ' 8 ' 9