Visual Basic .NET - Read Less - Learn More/Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso/Resources/Code/Ch4-UsingDoLoops/Module1.vb

Text File | 2001-07-12 | 277b | 13 lines

Module Module1

    Sub Main()
        Dim x As Integer = 0
        Do Until x = 10
            Console.WriteLine("Still running....")
            x = x + 1
        Loop
        Console.ReadLine()      ' wait for user to press Enter
    End Sub

End Module