Imports System

Public Module Module1

    Public Sub Main()

        dim a as integer = 10 

        while a < 20

            console.Write("{0}",a)

            a = a + 1

        end while 

​

​

    End Sub

End Module