GefObjectEvent.SetKey (method)

Changes the key associated with this event.
Syntax: object.SetKey Key, KeyModFlags
Parameters:
Key As long -
Optional KeyModFlags As long -
Description: The KeyModFlags parameter will the values of GefKeyModifierFlags logically OR'd together. Make sure that each enum only gets used once.

Example:

Sub GefObjectEvent_SetKey()
    
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.Item(0)
    
    oCimObjEvnt.SetKey 65, gefModAlt + gefModControl + gefModShift
    
End Sub