' Subroutine Example

' Show example of Subroutine definition and invocation.

Imports System.Console

Public Module Module1

    Public Sub Main()
        Dim time As Integer

        Write("Enter number of seconds for countdown: ")
        time = ReadLine()
        Subroutine.CountDown(time)

	' The Subroutine namespace can be omitted:
	' CountDown(time)
    End Sub

    Private Sub CountDown(ByVal n As Integer)
        Dim i As Integer

        For i = n To 0 Step -1
            Write(i & "...")
        Next
        WriteLine()
        WriteLine("BlastOff")
        ReadLine()
    End Sub
End Module