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