Class Module VB.Net Tutorial

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