Shared Properties : Property « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Property

Imports System

Class Person
  Private Shared MDomain As String

  Private Name As String
  Private Birthday As DateTime
  Private EmailAlias As String

  Public Shared Property Domain() As String
    Get
      Return MDomain
    End Get

    Set(ByVal Value As String)
      MDomain = Value
    End Set
  End Property

  Public Sub New(ByVal N As String, ByVal Dob As DateTime)
    Name = N
    Birthday = Dob
  End Sub
End Class

Module Test
  Sub Main()
    Dim APerson As New Person("P", New DateTime(1997, 7, 2))

    Person.Domain = "My.com"
  End Sub
End Module