Data Structure VB.Net

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")
        Dim denum As IDictionaryEnumerator = clouds.GetEnumerator()
        Dim dentry As DictionaryEntry
        While denum.MoveNext()
            dentry = CType(denum.Current, DictionaryEntry)
            Console.WriteLine("    {0,-17}{1}", dentry.Key, dentry.Value)
        End While
    End Sub
End Class