CimEventList.Add (method)

Adds the Event.
Syntax: object.Add eventDisp
eventDisp As CimEvent - Event object to be added to the list.
Description: CimEventList.Add adds a Cimevent to the project.


Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "c:\cimpdemo\cimpdemo.gef"
Dim eventList as CimEventList
set eventList = project.Events
Dim event as CimEvent
event.ID = "NEW_EVENT"
eventList.Add event