GetEventHandlerIndex Method Example

The following example gets the index number for the Click of the object CurrentObject and, if a procedure exists, removes it.

CurrentObject.Procedures.GetEventHandlerIndex "Click", lIndex, lFound

If lFound = 1 Then

CurrentObject.Procedures.Remove lIndex

End If