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