Private Function fkt_linq(Of T, K)(ByVal objlst As List(Of T), _
                          ByVal prmOrderBy As Func(Of T, K), _
                          ByVal prmWhere As Func(Of T, Boolean)) As List(Of T)
        Dim result = From o In objlst Where prmWhere(o) Order By prmOrderBy(o)
        Return result.ToList()
    End Function

 
    Private Sub TestLinq()
 
        Dim lf As New List(Of Form)
        lf.Add(New Form2)
        lf.Add(New Form3)
        lf.Add(New Form1)
 
        Dim lf1 As List(Of Form) = fkt_linq(lf, Function(f As Form) f.Text, _
          Function(f As Form) f.Text = "Form1" Or f.Text = "Form2")
 
        For Each frm As Form In lf1
            Debug.WriteLine(frm.Text)
        Next
 
    End Test

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist