Declares the name, arguments, and code that form the body of a Property procedure, which sets a reference to an object.
[ Public | Private | Friend ] [ Static ] Property Set name ( [ arglist ], reference )
[ statements ]
[ Exit Property ]
[ statements ]
The Property Set statement syntax has these parts:
|Optional||Optional. Indicates that the argument may or may not be supplied by the caller.|
|Public||Optional. Indicates that the Property Set procedure is accessible to all other procedures in all modules. If used in a module that contains an Option Private statement, the procedure is not available outside the project.|
|Private||Optional. Indicates that the Property Set procedure is accessible only to other procedures in the module where it is declared.|
|Friend||Optional. Used only in a class module. Indicates that the Property Set procedure is visible throughout the project, but not visible to a controller of an instance of an object.|
|Static||Optional. Indicates that the Property Set procedure's local variables are preserved between calls. The Static attribute doesn't affect variables that are declared outside the Property Set procedure, even if they are used in the procedure.|
|name||Required. Name of the Property Set procedure; follows standard variable naming conventions, except that the name can be the same as a Property Get or Property Let procedure in the same module.|
|arglist||Required. List of variables representing arguments that are passed to the Property Set procedure when it is called. Multiple arguments are separated by commas.|
|reference||Required. Variable containing the object reference used on the right side of the object reference assignment.|
|statements||Optional. Any group of statements to be executed within the body of the Property procedure.|
The arglist argument has the following syntax and parts:
[ Optional ] [ ByVal | ByRef ] [ ParamArray ] varname [ ( ) ] [ As type ] [ = defaultvalue ]
|Optional||Optional. Indicates that an argument is not required. If used, all subsequent arguments in arglist must also be optional and declared by using the Optional keyword. Note that it is not possible for the right side of a Property Set expression to be Optional.|
|ByVal||Optional. Indicates that the argument is passed by value.|
|ByRef||Optional. Indicates that the argument is passed by reference. ByRef is the default in Visual Basic.|
|ParamArray||Optional. Used only as the last argument in arglist to indicate that the final argument is an Optional array of Variant elements. The ParamArray keyword allows you to provide an arbitrary number of arguments. It may not be used with ByVal, ByRef, or Optional.|
|varname||Required. Name of the variable representing the argument; follows standard variable naming conventions.|
|type||Optional. Data type of the argument passed to the procedure; may be Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (not currently supported), Date, String (variable length only), Object, Variant, or a specific object type. If the parameter is not Optional, a user-defined type may also be specified.|
|defaultvalue||Optional. Any constant or constant expression. Valid for Optional parameters only. If the type is an Object, an explicit default value can only be Nothing.|
Every Property Set statement must define at least one argument for the procedure it defines. That argument (or the last argument if there is more than one) contains the actual object reference for the property when the procedure defined by the Property Set statement is invoked. It's referred to as reference in the preceding syntax. It can't be Optional.
The Friend keyword can only be used in class modules. However, Friend procedures can be accessed by procedures in any module of a project. A Friend procedure doesn't appear in the type library of its parent class, nor can a Friend procedure be late bound.
The Exit Property statement causes an immediate exit from a Property Set procedure. Program execution continues with the statement following the statement that called the Property Set procedure. Any number of Exit Property statements can appear anywhere in a Property Set procedure.
Like a Function and Property Get procedure, a Property Set procedure is a separate procedure that can take arguments, perform a series of statements, and change the value of its arguments. However, unlike a Function and Property Get procedure, both of which return a value, you can only use a Property Set procedure on the left side of an object reference assignment or Set statement.
This example uses the Property Set statement to define a property procedure that sets a reference to an object.
' The Pen property may be set to different Pen implementations. Property Set Pen(P As Object) Set CurrentPen = P ' Assign Pen to object. End Property