Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer(7) {3, 7, 9, 0, 4, 2, 1, 8}
Dim startIndex As Integer = 2
Dim length As Integer = 4
Dim subset As Integer() = New Integer(length - 1) {}
Array.Copy(arr, startIndex, subset, 0, length)
Console.WriteLine("Subset: " & String.Join(", ", subset))
End Sub
End Class
' run:
'
' Subset: 9, 0, 4, 2
'