為類新增功能

可以通過在物件引用的呼叫之前呼叫類模組中的任何公共 Sub，Function 或 Property：

Object.Procedure

在 DateRange 類中，Sub 可用於在結束日期新增若干天：

Public Sub AddDays(ByVal NoDays As Integer)
    mEndDate = mEndDate + NoDays
End Sub

Function 可以返回下個月末的最後一天（請注意，GetFirstDayOfMonth 在課外不可見，因為它是私有的）：

Public Function GetNextMonthEndDate() As Date
    GetNextMonthEndDate = DateAdd("m", 1, GetFirstDayOfMonth())
End Function

Private Function GetFirstDayOfMonth() As Date
    GetFirstDayOfMonth = DateAdd("d", -DatePart("d", mEndDate), mEndDate)
End Function

過程可以接受任何型別的引數，包括對正在定義的類的物件的引用。

以下示例測試當前 DateRange 物件是否具有包含另一個 DateRange 物件的開始日期和結束日期的開始日期和結束日期。

Public Function ContainsRange(ByRef TheRange As DateRange) As Boolean
    ContainsRange = TheRange.StartDate >= Me.StartDate And TheRange.EndDate <= Me.EndDate
End Function

請注意使用 Me 表示法來訪問執行程式碼的物件的值。