Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim counterVariable As Integer = 0
repeat: ' the label
Console.WriteLine("counterVariable: {0}", counterVariable)
' increment the counter
counterVariable += 1
If counterVariable < 10 Then
GoTo repeat ' the dastardly deed
End If
End Sub
End Class
|