' Visual Basic 2008 9.0 .NET Examples - Constructors - Object Oriented Programming : 
Module Exercise3Task
    Sub Main()
        Dim object6 As Class6 = New Class6
        '
        Console.WriteLine(object6.Value1)
        Console.WriteLine(object6.Value2)
        '
        object6 = New Class6(10)
        '
        Console.WriteLine(object6.Value1)
        Console.WriteLine(object6.Value2)
        '
        Console.ReadLine()
    End Sub
End Module
Class Class5
    Public Value1 As Integer
    Public Sub New()
        Value1 = 2
    End Sub
    Public Sub New(ByVal value As Integer)
        Value1 = value
    End Sub
End Class
Class Class6 : Inherits Class5
    Public Value2 As Integer
    Public Sub New()
        MyBase.New(5)
        Value2 = Value1 * 6
    End Sub
    Public Sub New(ByVal value As Integer)
        MyBase.New()
        Value2 = Value1 * 6
    End Sub
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.