vb.net - このVB.Netループを機能的に作成するにはどうすればよいですか？

Question

をに変換するVB.Net関数がNameValueColletionありIDictionaryます。Selectこれを機能的に（ループの代わりになどを使用して）どのように記述しますか？

<Extension()>
Public Function ToDictionary(ByVal source As NameValueCollection)
        As IDictionary(Of String, String)
    Dim ret = New Dictionary(Of String, String)
    Dim keys = source.Keys
    For Each key In keys
        Dim sKey = TryCast(key, String)
        Dim sVal = TryCast(source(key), String)
        If sKey Is Nothing OrElse sVal Is Nothing Then Continue For
        ret(sKey) = sVal
    Next
    Return ret
End Function

Answer 1

Return source.Cast(Of String)().
             ToDictionary(Function(key) key, Function(key) source(key))