If you declare an object of the type "CEL" with events, you have the possibility to react on the following two events:
Public WithEvents celObject As Cel
Private Sub celObject_CelItemAdded(ByVal obItem As ICelItem)
End Sub
Private Sub celObject_CelListSelectionChanged(ByVal obItem As ICelItem)
End Sub
'in the event "Project_Active the celObject must be set
Private Sub Project_Active()
Set celObject = thisProject.Cel
End Sub
'in the event "Project_Inactive the celObject must be set to nothing (destroyed)
Private Sub Project_Inactive()
Set celObject = Nothing
End Sub