Dim ht As New Hashtable
        ht.Add("key1", "data1")
        ht.Add("key2", "data2")
        ht.Add("key3", "data3")
 
        Dim myEnumerator As System.Collections.IEnumerator = ht.GetEnumerator()
        While myEnumerator.MoveNext() And Not (myEnumerator.Current Is Nothing)
            Dim de As DictionaryEntry = myEnumerator.Current
            MsgBox(de.Key + "=" + de.Value)
        End While