Imports System

Public Module Module1

    Public Sub Main()

        dim x as integer

        x = 10

        while x > = 1

            console.WriteLine(x)

            x = x -1

        end while

    End Sub

End Module