ocr: Form1 HOX Object Form Proc: Load Private sub Form Load() Set Jim = Newi Person signais initialize evenc With Jim .Age = 25 Invokes Let property MsgBox DateotBirth - Invokes Get property Set Mother = New Person 1 Invokes set property End With End Sub Person aX Object (General) Proc: DateOfBirth PropertyGex Clients don't care (or know) (declarations) whether DOB is a data member Age (PropertyGet) or a derived property Age PropertyLet) Date0iBirth PropertyGet) Mother PropertySet] Public Property Get DateofBirth0 AS Date DateotBirth = Now - Age * 365.25 End eroperty Figure 2 - Properties allow int ...
