Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim z() as integer = {1, 2}

        for i = 0 to 1

            console.WriteLine(z(i))

        next

        testfn(z)

    Console.WriteLine("Changing first element")

        for i = 0 to 1

            console.WriteLine(z(i))

        next

        testfn2(z)

Console.WriteLine("Reinitializing array")

        for i = 0 to 1

            console.WriteLine(z(i))

        next

    End Sub

    private sub testfn( byval x() as integer)

        x(0) = 5

    end sub

    private sub testfn2( byval x() as integer)

        redim x(3)' as integer = {7,8}

        x(0) = 8

    end sub

​

End Module