' Visual Basic 2008 9.0 .NET Examples - Constructors - Object Oriented Programming : 
Class Person
    Public Sub New(ByVal name As String)                                   ' (1)
        Me.Name = name
    End Sub
    Private m_Name As String
    Public Property Name() As String
        Get
            Name = m_Name
        End Get
        Set(ByVal value As String)
            m_Name = value
        End Set
    End Property
End Class
Module Client1
    Sub Main()
        Dim person1 As Person = New Person("John")                         ' (2)
        Console.WriteLine(person1.Name)
        '
        Console.ReadLine()
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.