Mega Code Archive
CopyTo method is used to copy the array elements beginning at the middle of the array
<![CDATA[
Imports System
Imports System.Collections.Generic
Module Example
Sub Main
Dim numbers As New Queue(Of String)
numbers.Enqueue("one")
numbers.Enqueue("two")
numbers.Enqueue("three")
numbers.Enqueue("four")
numbers.Enqueue("five")
Dim queueCopy As New Queue(Of String)(numbers.ToArray())
For Each number As String In queueCopy
Console.WriteLine(number)
Next
Dim array2((numbers.Count * 2) - 1) As String
numbers.CopyTo(array2, numbers.Count)
End Sub
End Module
]]>