Imports System.Collections
public class Test
public Shared Sub Main
Dim Hash As New Hashtable()
Hash.Add("5", "A")
Hash.Add("6", "B")
Hash.Add("7", "C")
Dim Enumerator As IDictionaryEnumerator = Hash.GetEnumerator
While (Enumerator.MoveNext())
Console.WriteLine(Enumerator.Key.ToString + "=" + Enumerator.Value.ToString)
End While
End Sub
End class
|