Imports System

Imports System.Collections

Imports System.Collections.Generic

Imports System.Runtime.CompilerServices

​

​

​

Public Module Module1

    Public Sub Main()

        Dim myList = New List(Of KeyValuePair(Of String, String)) From {

            {"key 1", "value 1"},

            {"key 2", "value 2"}

        }

        Console.WriteLine("Done")

    End Sub

    <Extension()>

    Public Sub Add(list As IList(Of KeyValuePair(Of String, String)), key As String, value As String)

        list.Add(New KeyValuePair(Of String, String)(key, value))

    End Sub

End Module