Language Basics VB.Net Tutorial

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