<%@Page language="vb" debug="true" %>
Sub Page_Load(Source As Object, E as EventArgs)
Dim myHashTable as new Hashtable
Dim Item As DictionaryEntry
myHashTable("UK") = "United Kingdom"
myHashTable("US") = "United States"
myHashTable("DE") = "Germany"
If Not Page.IsPostback Then
For Each Item In myHashtable
Dim newListItem As new ListItem()
newListItem.Text = Item.Value
newListItem.Value = Item.Key
myDropDownList.Items.Add(newListItem)
Next
End If
End Sub
Sub Click(Source As Object, E as EventArgs)
myLabel.Text = myDropDownList.SelectedItem.Value
End Sub