Dim li As New List(Of Integer)
        li.AddRange({13, -4, 128, 7, 19, 233, -4})
 
        Dim li1 As List(Of Integer) = fkt_linq(li, Function(x As Integer) x, _
          Function(x As Integer) x >= 10 AndAlso x < 200)
 
        For Each i As Integer In li1
            Debug.WriteLine(i.ToString())
        Next

________
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