Imports System
Public Class SamplesArray
Public Shared Sub Main()
Dim myArr(10) As [String]
myArr(0) = "1"
myArr(1) = "2"
myArr(2) = "3"
Dim i As Integer = 0
Dim myEnumerator As System.Collections.IEnumerator = myArr.GetEnumerator()
While myEnumerator.MoveNext() And Not (myEnumerator.Current Is Nothing)
Console.WriteLine("[{0}] {1}", i, myEnumerator.Current)
i += 1
End While
End Sub
End Class