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