Imports System.Collections
public class Test
public Shared 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 NewArray(StringArray.Length) As String
Array.Copy(StringArray, NewArray, StringArray.Length)
Console.WriteLine(Array.IndexOf(NewArray, "a"))
End Sub
End class
|