Deret Angka Ke bawah / Vertical Pada VB.NET 2005 Console Application

Deret Angka Ke bawah Pada / Vertical VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim x = 1
20:     WriteLine(x)
        If x = 5 Then GoTo 40
        x = x + 1
        GoTo 20
40:     ReadLine()
        End
    End Sub

End Module

Hasil nya :