Imports System.Collections

Module Program
    Sub Main()
        ' Create a Hashtable
        Dim myHashtable As Hashtable = New Hashtable()

        ' Add key-value pairs to the Hashtable
        myHashtable.Add("ID", 101)
        myHashtable.Add("Name", "John")
        myHashtable.Add("Age", 25)

        ' Display Count
        Console.WriteLine("Number of elements in Hashtable: " & myHashtable.Count)

        ' Access values using keys
        Console.WriteLine("Value for key 'Name': " & myHashtable.Item("Name"))

        ' Check if a key exists
        Console.WriteLine("Contains key 'Age': " & myHashtable.ContainsKey("Age"))

        ' Check if a value exists
        Console.WriteLine("Contains value 101: " & myHashtable.ContainsValue(101))

        ' Remove a key-value pair
        myHashtable.Remove("Age")
        Console.WriteLine("After removing 'Age', contains key 'Age': " & myHashtable.ContainsKey("Age"))

        ' Iterate through the Hashtable
        Console.WriteLine("Hashtable elements:")
        For Each key In myHashtable.Keys
            Console.WriteLine(key & ": " & myHashtable.Item(key))
        Next

        ' Clear the Hashtable
        myHashtable.Clear()
        Console.WriteLine("Count after Clear: " & myHashtable.Count)
    End Sub
End Module