Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim i as Integer

        i = 1

        While i <= 19

            console.WriteLine(i)

            i = i+2

        END WHILE

    End Sub

End Module