Collections VB.Net Tutorial

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
This
is
a
test
2