' Visual Basic 2008 9.0 .NET Examples - Inheritance - Object Oriented Programming : 
Class Address
    Private m_Street As String
    Public Property Street() As String
        Get
            Street = m_Street
        End Get
        Set(ByVal value As String)
            m_Street = value
        End Set
    End Property
    Private m_Number As String
    Public Property Number() As String
        Get
            Number = m_Number
        End Get
        Set(ByVal value As String)
            m_Number = value
        End Set
    End Property
    Private m_ZipCode As String
    Public Property ZipCode() As String
        Get
            ZipCode = m_ZipCode
        End Get
        Set(ByVal value As String)
            m_ZipCode = value
        End Set
    End Property
    Private m_City As String
    Public Property City() As String
        Get
            City = m_City
        End Get
        Set(ByVal value As String)
            m_City = value
        End Set
    End Property
End Class
Class Employee
    Private m_Name As String
    Public Property Name() As String
        Get
            Name = m_Name
        End Get
        Set(ByVal value As String)
            m_Name = value
        End Set
    End Property
    Private m_Address As Address
    Public Property Address() As Address
        Get
            Address = m_Address
        End Get
        Set(ByVal value As Address)
            m_Address = value
        End Set
    End Property
End Class
Class Manager : Inherits Employee
    Private m_Car As Car
    Public Property Car() As Car
        Get
            Car = m_Car
        End Get
        Set(ByVal value As Car)
            m_Car = value
        End Set
    End Property
End Class
Class Car
    Private m_Brand As String
    Public Property Brand() As String
        Get
            Brand = m_Brand
        End Get
        Set(ByVal value As String)
            m_Brand = value
        End Set
    End Property
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.