byval array changes when giving value

[sarris]

hi there,
i am coming accross i weird problem
i have this structure

Public Structure Pack_
        Dim pack() As Byte
        Dim comport As Integer
        Dim toRouter As Boolean
        Dim header As header_
    End Structure

and declared globaly

dim pack as pack_

and initiated at the form_load

pack = new pack_

i have this function

myfunction(byval dim Wpack() as byte)
 
pack.pack =wpack
 
pack.pack(4) = 30
end function

for some reason, wpack(4) becomes 30 as well...
i dont get it at all...