' Visual Basic 2008 9.0 .NET Examples - Inheritance - Object Oriented Programming : 
Module Exercise2Solution
    Sub Main()
        Dim france As Republic = New Republic
        france.Capital = "Paris"
        france.President = "Sarkozy"
        '
        Dim unitedKingdom As Monarchy = New Monarchy
        unitedKingdom.Capital = "London"
        unitedKingdom.Monarch = "Elizabeth"
    End Sub
End Module
Class Country
    Private m_Capital As String
    Public Property Capital() As String
        Get
            Capital = m_Capital
        End Get
        Set(ByVal value As String)
            m_Capital = value
        End Set
    End Property
End Class
Class Monarchy : Inherits Country
    Private m_Monarch As String
    Public Property Monarch() As String
        Get
            Monarch = m_Monarch
        End Get
        Set(ByVal value As String)
            m_Monarch = value
        End Set
    End Property
End Class
Class Republic : Inherits Country
    Private m_President As String
    Public Property President() As String
        Get
            President = m_President
        End Get
        Set(ByVal value As String)
            m_President = value
        End Set
    End Property
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.