Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, 

	ByVal e As System.EventArgs) Handles Button1.Click

        Dim weeks As New Hashtable

        Dim day As DictionaryEntry

        weeks.Add("1", "Sun")

        weeks.Add("2", "Mon")

        weeks.Add("3", "Tue")

        weeks.Add("4", "Wed")

        weeks.Add("5", "Thu")

        weeks.Add("6", "Fri")

        weeks.Add("7", "Sat")

        'Display a single Item

        MsgBox(weeks.Item("5"))

        'Search an Item

        If weeks.ContainsValue("Tue") Then

            MsgBox("Find")

        Else

            MsgBox("Not find")

        End If

        'remove an Item

        weeks.Remove("3")

        'Display all key value pairs

        For Each day In weeks

            MsgBox(day.Key  "  --  "  day.Value)

        Next

    End Sub

End Class