let Sample_OfType_Linq() =
    let objects : obj[] = [|"Thomas"; 31; 5.02; null; "Joey"|]

    let result = query {
        for o in objects.OfType<string>() do
        select o
    }

    Debug.WriteLine(sprintf "Objects being of type string have the values:")
    for str in result do
        Debug.WriteLine(sprintf "%s" str)

Objects being of type string have the values:
Thomas
Joey

Private Shared Sub Sample_OfType_Linq()
    Dim objects As Object() = {"Thomas", 31, 5.02, Nothing, "Joey"}

    Dim result = From o In objects.OfType(Of String)()

    Debug.WriteLine("Objects being of type string:")
    For Each str As String In result
        Debug.WriteLine(str)
    Next
End Sub

Objects being of type string:
Thomas
Joey