Imports System
Imports System.Collections.Generic
Imports System.Linq
Class Program
Public Shared Sub Main()
Dim myDictionary = New Dictionary(Of Integer, String) From {
{1, "VB.NET"},
{2, "C"},
{3, "C++"},
{4, "Java"},
{5, "Python"}
}
Dim filteredDictionary = myDictionary.Where(Function(kvp) kvp.Key > 2).ToDictionary(Function(kvp) kvp.Key, Function(kvp) kvp.Value)
For Each kvp In filteredDictionary
Console.WriteLine($"Key: {kvp.Key}, Value: {kvp.Value}")
Next
End Sub
End Class
' run:
'
' Key: 3, Value: C++
' Key: 4, Value: Java
' Key: 5, Value: Python
'