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