Language Basics VB.Net Tutorial

Module Module1
    Dim Counter As Integer
    Sub BigLoop()
        For Counter = 1000 To 1005      ' Use global Counter
            Console.Write(Counter & " ")
        Next
    End Sub
    Sub LittleLoop()
        Dim Counter As Integer
        For Counter = 0 To 5      ' Use local Counter
            Console.Write(Counter & " ")
        Next
    End Sub
    Sub Main()
        Counter = 100
        Console.WriteLine("Starting Counter: " & Counter)
        BigLoop()
        Console.WriteLine("Counter after BigLoop: " & Counter)
        LittleLoop()
        Console.WriteLine("Counter after LittleLoop: " & Counter)
        If (Counter > 1000) Then
            Dim Counter As Integer = 0
            Console.WriteLine("Counter in If statement: " & Counter)
        End If
        Console.WriteLine("Ending Counter: " & Counter)
    End Sub
End Module
Starting Counter: 100
1000 1001 1002 1003 1004 1005 Counter after BigLoop: 1006
0 1 2 3 4 5 Counter after LittleLoop: 1006
Counter in If statement: 0
Ending Counter: 1006