Se ieri avete visto i web cast e i siti web che vi ho elencato il seguente codice dovrebbe risultarvi semplice da interpretare:
Dim numeri As Integer() = New Integer() {1, 2, 3, 4, 5}
Dim numeriPari = From n In numeri Where (n Mod 2 = 0) Select n
For Each item In numeriPari
Console.WriteLine("{0}", item)
Next