Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Shared Properties

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