Module Module1 Sub Main() For intLoopIndex As Integer = 0 To 5 System.Console.WriteLine(Tracker()) Next intLoopIndex End Sub Dim intCount As Integer Function Tracker() As Integer intCount += 1 Return intCount End Function End Module
1 2 3 4 5 6