' Visual Basic 2008 9.0 .NET Examples - Method Overloading in Classes - Overloads - Object Oriented Programming : 
Class QueryablePersons : Inherits Persons
    Default Public Overloads ReadOnly Property Item( _
                                               ByVal name As String) As Person
        Get
            Dim index As Integer, found As Boolean
            Do While index < Count AndAlso Not found
                If m_Items(index).Name = name Then
                    Item = m_Items(index)
                    found = True
                Else
                    index += 1
                End If
            Loop
        End Get
    End Property
End Class
Module Client
    Sub Main()
        Dim person1 As Person = New Person
        person1.Name = "John"
        '
        Dim person2 As Person = New Person
        person2.Name = "Jane"
        '
        Dim queryablePersons1 As QueryablePersons = New QueryablePersons
        queryablePersons1.Add(person1)
        queryablePersons1.Add(person2)
        '
        Console.WriteLine(queryablePersons1.Item(1) Is person2)
        Console.WriteLine(queryablePersons1.Item("Jane") Is person2)
        Console.WriteLine(queryablePersons1.Item("Jane").Name = "Jane")
        '
        Console.ReadLine()
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.