Sub AppStart (Args() As String)
Dim arr(1000) As Int
For i = 0 To arr.Length - 1
arr(i) = Rnd(0, 1000000)
Next
Dim n As Long = DateTime.Now
For i = 1 To 1000
CopyArray(arr)
Next
Log(DateTime.Now - n)
End Sub
Sub CopyArray(arr() As Int) As Int()
Dim n(arr.Length) As Int
For i = 0 To n.Length - 1
n(i) = arr(i)
Next
Return n
End Sub