Question

how to write a Do...Loop while that will loop until the user presses stop?

Answer 1

Module Module1    ''' <summary>    ''' Main function    ''' </summary>    ''' <remarks></remarks>    Sub Main()        'flag for stop loop        Dim _stop As Boolean = True        'Do...Loop while that will loop until the user presses stop        Do While _stop = True            'read key s            Console.Write("Press ""s"" to stop: ")            If (Console.ReadLine().ToUpper() = "S") Then                _stop = False            End If        Loop        'end of loop        Console.Write("End of loop")        'Delay        Console.ReadLine()    End SubEnd Module