Public Class Pet
    Public Name As String
    Public Age As Integer
End Class

Public Class ItemComparer
    Implements IEqualityComparer(Of Pet)

    Public Function Equals1(ByVal x As Pet, ByVal y As Pet) As Boolean _
        Implements IEqualityComparer(Of Pet).Equals

        If x Is y Then Return True

        If x Is Nothing OrElse y Is Nothing Then Return False

        Return (x.Age = y.Age) AndAlso (x.Name = y.Name)

    End Function

    Public Function GetHashCode1(ByVal product As Pet) As Integer _
        Implements IEqualityComparer(Of Pet).GetHashCode

        If product Is Nothing Then Return 0
        Dim hashItemName = If(product.Name Is Nothing, 0, product.Name.GetHashCode())
        Dim hashItemAge = product.Age.GetHashCode()
        Return hashItemName Xor hashItemAge
    End Function

End Class


Imports System
Imports System.Linq
Imports System.Collections.Generic
Module Module1


    Public Sub Main()

        Dim pet1 As New Pet With {.Name = "Turbo", .Age = 2}
        Dim pet2 As New Pet With {.Name = "Peanut", .Age = 8}

        Dim pets1 As New List(Of Pet)()
        pets1.Add(pet1)
        pets1.Add(pet2)

        Dim pets2 As New List(Of Pet)()
        pets2.Add(New Pet With {.Name = "Turbo", .Age = 2})
        pets2.Add(New Pet With {.Name = "Peanut", .Age = 8})
        'pets2.Add(pet1)
        'pets2.Add(pet2)

        Dim equal As Boolean = pets1.SequenceEqual(pets2)

        Console.WriteLine(equal)

        For Each DiffPet In pets1.Except(pets2)
            Console.WriteLine(DiffPet.Name & " - " & DiffPet.Age)
        Next

        Console.ReadKey()

    End Sub

End Module