Imports SysteeImports System

Public Module Module1

    Public Sub Main()

        Dim x As Integer = 10

​

        While x=1 to 10

​

Console.WriteLine("value of x: {0}", x)

​

x = x + 1

​

End While

​

End Sub

​

End Module