Data Structure VB.Net

Imports System
Imports System.Collections
Public Class SamplesHashtable
    Public Shared Sub Main()
        Dim myHT As New Hashtable()
        myHT.Add(0, "zero")
        myHT.Add(1, "one")
        myHT.Add(2, "two")
        myHT.Add(3, "three")
        myHT.Add(4, "four")
        PrintIndexAndKeysAndValues(myHT)
        Dim myKey As Integer = 2
        Console.Write("The key ""{0}"" is ", myKey)
        If(myHT.ContainsKey(myKey))
           Console.WriteLine("in the Hashtable.")
        Else
           Console.WriteLine("NOT in the Hashtable.")
        End If
        Dim myValue As String = "three"
        Console.Write("The value ""{0}"" is ", myValue)
        If(myHT.ContainsValue(myValue))
           Console.WriteLine(" in the Hashtable.")
        Else
           Console.WriteLine(" NOT in the Hashtable.")
        End If
    End Sub
    Public Shared Sub PrintIndexAndKeysAndValues(myHT As Hashtable)
        Dim i As Integer = 0
        Dim de As DictionaryEntry
        For Each de In  myHT
            Console.WriteLine("{1}:{2}", i, de.Key, de.Value)
            i = i + 1
        Next de
        Console.WriteLine()
    End Sub 
End Class