Option Strict On Public Class Counters Dim ctr As Integer Public Sub New() For ctr = 1 to 20 DoSomething() Next End Sub Public Sub DoSomething() Console.WriteLine(Me.ctr) End Sub End Class Public Module modMain Public Sub Main() Dim obj As New Counters() End Sub End Module
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20