Imports System.Collections public class Test public Shared Sub Main Dim StringArray() As String = {"This", "is", "a", "test"} Array.Reverse(StringArray) Dim E As IEnumerator = StringArray.GetEnumerator() While (E.MoveNext()) Console.WriteLine(E.Current()) End While End Sub End class
test a is This