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