GefObjectEvent.PeriodicTimeMS (property)

Gets and sets the time interval in milliseconds.

Syntax:

long = object.PeriodicTimeMS
object.PeriodicTimeMS = long

Description:

This property is only valid for events whose Type is gefEventPeriodic, gefEventWhileKeyDown, or gefEventWhileLBMouseDown.

Example:

Sub GefObjectEvent_PeriodicTimeMS()

Dim oCimObj As GefObject

    Dim oCimObjEvnts As
GefObjectEvents

    Dim oCimObjEvnt As
GefObjectEvent

Set oCimObj = CimGetObject

    Set oCimObjEvnts =
oCimObj.Events

    Set oCimObjEvnt =
oCimObjEvnts.Item(0)

MsgBox "This script will run every " & _

        oCimObjEvnt.PeriodicTimeMS
& "ms"

End Sub