Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim numbers = New Object() {Nothing, 1.0, "two", 3, "four", 5, "six", 7.0}
Dim doubles = From num In numbers _
Where TypeOf num Is Double
Console.WriteLine("Numbers stored as doubles:")
For Each d In doubles
Console.WriteLine(d)
Next
End Sub
End Class