[RESOLVED] Creat Property in th CLass

[nader]

This is a class with property.

 
Public Class classDate
Private m_BirthDate As Date
Property BirthDate() As Date
Get
Return m_BirthDate
End Get
Set(ByVal Value As Date)
m_BirthDate = Value
End Set
End Property
End Class
----
Dim D As New classDate
D.BirthDate = "1 / 10 / 2008"
MsgBox(D.BirthDate)

Which line is realted to Get and which line rleated to Set?
it's mean is this line related to Set
D.BirthDate = "1 / 10 / 2008"

and this line to Get
MsgBox(D.BirthDate)