' Visual Basic 2008 9.0 .NET Examples - Constructors - Object Oriented Programming : 
Module Exercise7Task
    Sub Main()
        Dim object14 As Class14 = New Class14(1, 2)
        '
        Console.WriteLine(object14.Value1)
        Console.WriteLine(object14.Value2)
        '
        Console.ReadLine()
    End Sub
End Module
Class Class13
    Public Value1 As Integer
    Public Sub New(ByVal value As Integer)
        Value1 = value
    End Sub
End Class
Class Class14 : Inherits Class13
    Public Value2 As Integer
    Public Sub New(ByVal value1 As Integer, ByVal value2 As Integer)
        MyBase.New(value1)
        Me.Value2 = value2
    End Sub
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.