Module Module1
Sub Main()
Dim arr1() As Integer = {1, 2, 3, 4, 5, 6}
Dim arr2() As Integer = {9, 9, 9, 9, 9, 9}
Array.ConstrainedCopy(arr1, 0, arr2, 0, arr1.Length)
Console.WriteLine("arr1")
For Each value In arr1
Console.WriteLine(value)
Next
Console.WriteLine("arr2")
For Each value In arr2
Console.WriteLine(value)
Next
End Sub
End Module
' run:
'
' arr1
' 1
' 2
' 3
' 4
' 5
' 6
' arr2
' 1
' 2
' 3
' 4
' 5
' 6