Comment écrire cette méthode lambda select sur VB.net?

Car j'ai essayé ceci:

Dim exampleItems As Dictionary(Of String, String) = New Dictionary(Of String, String)
Dim blah = exampleItems.Select (Function(x) New (x.Key, x.Value)).ToList 'error here

Mais j'obtiens une erreur de syntaxe et tous les exemples que j'ai vu sont en C#.

source d'informationauteur dotnetN00b