GefObjectEvent.UserParameter (property)

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.


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 = 10
        MsgBox "It is now " & oCimObjEvnt.UserParameter
        MsgBox "There are no events configured"
    End If
End Sub