Variabel ændres på højre side af lighedstegn?

Jeg har to 2-dim Arrays der begge er erklæret Public i et modul:

Public Var1(,) as integer
Public Var2(,) as integer

I en sub bliver Var1 redimmet og fyldt, og senere sættes Var2 = Var1 (de to arrays er altid ens mht dimensioner og størrelse):

Var2 = Var1

Senere igen -i andre subs- bliver værdierne løbende ændret i Var2, men IKKE i Var1. Dvs Var1 ændres ikke rent programmelt, men værdierne BLIVER ændret sideløbende i Var1????

Hvad sker der her? Skal jeg erklære dem anderledes? (De skal begge være Public, da de skal bruges på tværs af flere moduler og forms).

Jeg kan tilføje, at hvis jeg i stedet for Var2 = Var1 sætter:
    ReDim Var2(Var1.GetUpperBound(0), Var1.GetUpperBound(1))
    For i As Integer = 0 To Var1.GetUpperBound(0)
        For j As Integer = 0 To Var1.GetUpperBound(1)
            Var2(i, j) = Var1(i, j)
        Next j
    Next i

Så bliver Var1 IKKE ændret, når der sker ændringer i Var2.