CimGetEventContext (function)

Syntax GefEventContext = CimGetEventContext ( )
Description Returns the GefEventContext Automation object representing the event that caused this script to run.
Status The extension can be used.
Example 

                Dim ev As GefObjectModel.GefEventContext
                Dim x As Long
                Dim y As Long
                Dim flags As Long
                Set ev = CimGetEventContext()
                If ev.GetMouseEvent(x, y, flags) Then
                ??'Center Object on mouse coordinates
                ??x = x - ev.TriggerObject.Width / 2
                ??y = y + ev.TriggerObject.Height / 2
                ??ev.TriggerObject.Left = x
                ??ev.TriggerObject.Top = y
                ??ev.Parent.Refresh False
End If