Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer(4) {}
arr(0) = 5
arr(1) = 7
arr(2) = 0
arr(3) = 9
arr(4) = 8
Dim arr_copy As Integer() = New Integer(4) {}
Array.Copy(arr, arr_copy, 5)
For i As Integer = 0 To arr_copy.Length - 1
Console.WriteLine(arr_copy(i))
Next
End Sub
End Class
' run:
'
' 5
' 7
' 0
' 9
' 8
'