WHILE

Module Module1

    Sub Main()

        Dim a, b As Integer

        a = 0

        a = 2

        While a < 5

            Console.WriteLine("a=" & a)

            a = a + 1

        End While

        Console.Read()

    End Sub

End Module