Imports System

Public Module Module1

    Public Sub Main()

        dim A as integer

        while A < 20

            console.write("{0}" , A)

            A=A+1

        End While 

    End Sub

End Module