Cel.CelItemAdded

CelItemAdded(obItem As CelItem)

Parameters

obItem As CelItem

Returns the added CelItem as Object...

Remarks

Event is fired, when a new item was added...

Sample:

Dim WithEvents zCEL As Cel

'##########################################################
'### Procedures/Events of the Project				 ###
'##########################################################
Private Sub Project_Active()
	'init CEL Object to get the CelItemAdded event
	Set zCEL = thisProject.Cel
End Sub

Private Sub Project_Inactive()
	'release object
	Set zCEL = Nothing
End Sub

'##########################################################
'### Procedures/Events for the CEL DynPicture		 ###
'##########################################################
Private Sub zCEL_CelItemAdded(ByVal obItem As ICelItem)
	'when a new entry was generated....
	Debug.Print "CelItemAdded - " & obItem.Text
End Sub

See Also

Cel, CelItem