Imports System.Collections Module Module1 Sub Main() Dim StringArray() As String = {"This", "is", "a", "test"} Dim E As IEnumerator = StringArray.GetEnumerator() While (E.MoveNext()) Console.WriteLine(E.Current()) End While Dim AnArray(5) As Array AnArray(0) = StringArray Console.WriteLine(CType(AnArray(0), String())(0)) End Sub End Module
This is a test This