Imports System

Imports System.Collections.Generic

imports System.Linq

​

Public Module Module1

​

    Public Sub Main()

        Dim data = New System.Collections.Generic.Dictionary(Of String, Integer)

        data.Count(Function(x) x.Value > 0) 'Compile-time error!

        Enumerable.Where(data, Function(x) x.Value > 0).Count() 'Works!

        data.Where(Function(x) x.Value > 0).Count() 'Works!

    End Sub

End Module

​