Option Explicit On
Option Strict On
Module Program
Sub Main()
Dim numbers() As Integer = {10, 20, 30, 40, 1, 2, 3, 8}
Dim subset = From i In numbers Where i < 10 Select i
For Each i In subset
Console.WriteLine("{0} < 10", i)
Next
numbers(0) = 4
For Each i In subset
Console.WriteLine("{0} < 10", i)
Next
Console.WriteLine(subset.GetType().Name)
Console.WriteLine(subset.GetType().Assembly)
End Sub
End Module