Imports System Imports System.Collections Public Class HashtableExample Public Shared Sub Main() Dim clouds As New Hashtable() clouds.Add("One", "1") clouds.Add("Two", "2") clouds.Add("Three", "3") For Each de As DictionaryEntry in clouds Console.WriteLine(" {0,-17}{1}", de.Key, de.Value) Next de End Sub End Class