'here is the class
Public Class Employee
Public Property Name() As String
Get
Return m_Name
End Get
Set
m_Name = Value
End Set
End Property
Private m_Name As String
Public Property DateOfBirth() As DateTime
Get
Return m_DateOfBirth
End Get
Set
m_DateOfBirth = Value
End Set
End Property
Private m_DateOfBirth As DateTime
End Class
'and this class can be initialized as below
Dim employee As New Employee()
employee.Name = "Bill Gates"
employee.DateOfBirth = "10/28/1955"
|