Visual Basic

   Private List1 As New List(Of Article)
    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)

        For i As Integer = 0 To 6
            Dim f As New Article
            f.ID = 2
            f.Td = i
            List1.Add(f)
        Next
        lst.ItemsSource = List1
    End Sub

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        SearchString = "id=2, td=3"
        Dim predicate As Predicate(Of Article) = AddressOf FindArticles

        lst.ItemsSource = List1.FindAll(predicate)
    End Sub

    Dim SearchString As String = ""

    Private Function FindArticles(obj As Article) As Boolean

        Dim ListOfProperties As New List(Of String)
        Dim ValueOfProperties As New List(Of String)

        If SearchString = "" Then
            Return True
        End If

        Dim NumberOfArguments() As String
        NumberOfArguments = SearchString.Split(",")
        For Each Str As String In NumberOfArguments
            Dim test() As String = Str.Trim.Split("=")
            ListOfProperties.Add(test(0).Trim)
            ValueOfProperties.Add(test(1).Trim)
        Next

        Dim ReturnValues As New List(Of Boolean)
        '   Dim TrueValue As Boolean = False

        For Each p As System.Reflection.PropertyInfo In obj.GetType().GetProperties()
            If p.CanRead And p.CanWrite Then

                For i As Integer = 0 To ListOfProperties.Count - 1
                    If p.Name.ToLower = ListOfProperties(i).ToLower Then

                        Dim t As Type = If(Nullable.GetUnderlyingType(p.PropertyType), p.PropertyType)
                        Dim safeValue As Object = If((ValueOfProperties(i) Is Nothing), Nothing, Convert.ChangeType(ValueOfProperties(i), t))

                        'Get the value
                        Dim f = p.GetValue(obj)

                        'This would set the value
                        '  p.SetValue(p, safeValue, Nothing)

                        'Is it the same type?
                        If safeValue IsNot Nothing Then
                            If f = safeValue Then
                                ReturnValues.Add(True)
                            Else
                                ReturnValues.Add(False)
                            End If
                        Else
                            'If you end up here you have entered the wrong element type of the property
                            ' like an integer instead of a point etc
                        End If
                    End If
                Next
            End If
        Next


        Dim truevalue As Boolean = False
        ' This is And logic on the result
        If ReturnValues.Count <> 0 Then
            Dim tempvalue As Boolean = True
            For Each Bools As Boolean In ReturnValues
                tempvalue = tempvalue And Bools
            Next
            truevalue = tempvalue
        End If

        Return TrueValue
    End Function
End Class

Class Article
    Private pId As Integer
    Public Property ID() As Integer
        Get
            Return pId
        End Get
        Set(ByVal value As Integer)
            pId = value
        End Set
    End Property

    Private pTd As Integer
    Public Property Td() As Integer
        Get
            Return pTd
        End Get
        Set(ByVal value As Integer)
            pTd = value
        End Set
    End Property

End Class

list1 = From t In context.Articles.Include("F2") Order By t.name Ascending
              Select t

<DllImport("user32.dll", SetLastError:=True)> _
Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean
End Function