Structure Pet
    Public Name As String
    Public Age As Integer
    Public Vaccinated As Boolean
End Structure

Shared Sub AnyEx3()
    ' Create a list of Pets
    Dim pets As New List(Of Pet)(New Pet() _
                                 {New Pet With {.Name = "Barley", .Age = 8, .Vaccinated = True}, _
                                  New Pet With {.Name = "Boots", .Age = 4, .Vaccinated = False}, _
                                  New Pet With {.Name = "Whiskers", .Age = 1, .Vaccinated = False}})

    ' Determine whether any pets over age 1 are also unvaccinated.
    Dim unvaccinated As Boolean = _
        pets.Any(Function(pet) pet.Age > 1 And pet.Vaccinated = False)

    ' Display the output.
    Dim text As String = IIf(unvaccinated, "are", "are not")
    MsgBox("There " & text & " unvaccinated animals over age 1.")
End Sub

' This code produces the following output:
'
' There are unvaccinated animals over age 1.

class Pet
{
    public string Name { get; set; }
    public int Age { get; set; }
    public bool Vaccinated { get; set; }
}

public static void AnyEx3()
{
    // Create an array of Pets.
    Pet[] pets =
        { new Pet { Name="Barley", Age=8, Vaccinated=true },
          new Pet { Name="Boots", Age=4, Vaccinated=false },
          new Pet { Name="Whiskers", Age=1, Vaccinated=false } };

    // Determine whether any pets over age 1 are also unvaccinated.
    bool unvaccinated =
        pets.Any(p => p.Age > 1 && p.Vaccinated == false);

    Console.WriteLine(
        "There {0} unvaccinated animals over age one.",
        unvaccinated ? "are" : "are not any");
}

// This code produces the following output:
//
//  There are unvaccinated animals over age one.