Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim list = New List(Of Integer) From {-3, 6, 1, -2, 10, 8, -9, -4, 7, 0}
Dim filteredlist As List(Of Integer) = list.FindAll(Function(e) e > 0)
Console.WriteLine(String.Join(","c, filteredlist))
End Sub
End Class
' run:
'
' 6,1,10,8,7
'