DO WHILE__LOOP

Module Module1

    Sub Main()

        Dim value As Integer

        Do While value < 30

            value = value + 1

            Console.WriteLine(value)

        Loop

        Console.ReadLine()

    End Sub

End Module