定义和使用属性

 Public Class Employee
    Private Name As String
    Private Salary As Decimal
    Private HireDate As DateTime

    Public Sub New(ByVal Name As String, _
                ByVal Salary As Decimal, _
                ByVal HireDate As DateTime)
        Me.Name = Name
        Me.Salary = Salary
        Me.HireDate = HireDate
    End Sub

    Public Sub payRise(ByVal Amount As Decimal)
        Me.Salary += Amount
    End Sub

    Public Property FullName() As String
        Get
            Return Me.Name
        End Get
        Set(ByVal Value As String)
            Me.Name = Value
        End Set
    End Property

    Public ReadOnly Property Remuneration() As Decimal
        Get
            Return Me.Salary
        End Get
    End Property

    Public ReadOnly Property DaysSinceJoined() As Integer
        Get
            Dim timespan As TimeSpan = DateTime.Now.Subtract(Me.HireDate)
            Return timespan.Days
        End Get
    End Property
End Class
------------------------------------------------------------------------------------

        Dim worker As New Employee("me", 1600, New DateTime(2004, 11, 22))
        worker.FullName = "zhang lei"
        Label1.Text = worker.FullName & vbCrLf
        Label1.Text &= worker.Remuneration & vbCrLf
        Label1.Text &= worker.DaysSinceJoined