Create a second copy of the queue containing three null elements at the beginning.
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()) Console.WriteLine(vbLf & "Contents of the first copy:") For Each number As String In queueCopy Console.WriteLine(number) Next Dim array2((numbers.Count * 2) - 1) As String numbers.CopyTo(array2, numbers.Count) Dim queueCopy2 As New Queue(Of String)(array2) Console.WriteLine("Contents of the second copy, with duplicates and nulls:") For Each number As String In queueCopy2 Console.WriteLine(number) Next End Sub End Module