Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim nvc As New NameValueCollection
nvc.Add("Value 1", "Key 1")
nvc.Add("Value 2", "Key 2")
nvc.Add("Value 3", "Key 3")
nvc.Add("Value 4", "Key 4")
nvc.Add("Value 5", "Key 5")
nvc.Add("Value 6", "Key 6")
nvc.Add("Value 7", "Key 7")
Dim values() As String
For Each key As String In nvc.Keys
Console.Write(key & ":")
values = nvc.GetValues(key)
For Each value As String In values
Console.WriteLine(" " & value)
Next value
Next key
Console.WriteLine()
For Each key As String In nvc.Keys
Console.WriteLine(key & ": " & nvc.Item(key))
Next key
End Sub
End Class