' Visual Basic 2008 9.0 .NET Examples - Constructors - Object Oriented Programming : 
Class Student : Inherits Person
    Public Sub New(ByVal name As String, ByVal classGroup As String)
        MyBase.New(name)
        Me.ClassGroup = classGroup
    End Sub
    Private m_ClassGroup As String
    Public Property ClassGroup() As String
        Get
            ClassGroup = m_ClassGroup
        End Get
        Set(ByVal value As String)
            m_ClassGroup = value
        End Set
    End Property
End Class
Module Client3
    Sub Main()
        Dim student1 As Student = New Student("John", "Group 1")
        With student1
            Console.WriteLine(.Name)
            Console.WriteLine(.ClassGroup)
        End With
        '
        Console.ReadLine()
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.