loop-variables-retain-their-values.vb

Module Program

    Sub Main()

        For i = 1 To 3
            Dim x As Integer
            x -= 1
            Console.WriteLine(x)
        Next

    End Sub
End Module