VB.Net/Data Structure/NameValueCollection

Simple Demo for NameValueCollection

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