Aprenda a copiar parte dos elementos de um array para outro

'Este exemplo mostra como copiar parte dos elementos
'de um array para outro array

Module Module1
  Sub Main()
    ' cria um array de inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}

    ' exibe os valores do primeiro array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    'cria um segundo array e copia os primeiros 5
    'elementos do primeiro array para o segundo array
    Dim valores2() As Integer
    valores2 = New Integer(0 To 4) {}
    Array.Copy(valores, 0, valores2, 0, 5)
    Console.WriteLine()

    ' exibe os valores do segundo array
    For Each valor As Integer In valores2
      Console.WriteLine(valor)
    Next

    Console.ReadKey()
  End Sub
End Module