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