Configured as the user parameter with the event. | |
Syntax: | String =
object.UserParameter object.UserParameter = String |
Description: | The UserParameter property gets or sets the
user parameter of the event. Example: Sub GefObjectEvent_UserParameter() Dim oCimObj As GefObject Dim oCimObjEvnts As
GefObjectEvents Dim oCimObjEvnt As
GefObjectEvent Set oCimObj = CimGetObject Set oCimObjEvnts =
oCimObj.Events Set oCimObjEvnt =
oCimObjEvnts.Item(0) If Not oCimObjEvnts Is Nothing
Then MsgBox "The
user prameter for this event is " & _ oCimObjEvnt.UserParameter oCimObjEvnt.UserParameter
= 10 MsgBox "It is
now " & oCimObjEvnt.UserParameter Else MsgBox "There
are no events configured" End If End Sub |