The Add method adds programmatically a new event/appointment to the control. The AddEvent event occurs once a new event is added to the Events collection. The UpdateEvent event occurs once the margins of the event are updated. The LayoutStartCreating(exScheduleCreateEvent) event occurs once a new event is creating using the mouse. The LayoutEndCreating(exScheduleCreateEvent) event occurs once the event has been created at runtime using the mouse. The Start/End properties of the Event indicate the margins of the appointment. The Repetitive property indicates the expression that  shows the same event repeatedly in different dates. The Selection property of the Calendar object indicates the date being browsed in the schedule view. Use the Remove method to remove programmatically an event from the control.

The AllowCreateEvent property indicates the combination of keys that user can use to create a new event at runtime. The CreateEventLabel property specifies the label to be shown when the user creates a new event. The CreateEventLabelAlign property indicates the alignment of the label while user creates new events. The Background(exScheduleCreateEventBackColor) and Background(exScheduleCreateEventForeColor) properties indicate the visual aspect of the label being shown to create new events.

The following VB sample combines the AddEvent, LayoutStartCreating(exScheduleCreateEvent) and LayoutEndCreating(exScheduleCreateEvent), to ask  the user if he wants to keep the newly created event, and if not, removes it:

Dim iCreatingEvent As Long

Private Sub Schedule1_AddEvent(ByVal Ev As EXSCHEDULELibCtl.IEvent)
    If Not (iCreatingEvent = 0) Then
        If Not MsgBox("Do you allow creating this new event?", vbQuestion Or vbYesNoCancel) = vbYes Then
            Schedule1.Events.Remove (Ev.Handle)
        End If
    End If
End Sub

Private Sub Schedule1_LayoutStartChanging(ByVal Operation As EXSCHEDULELibCtl.LayoutChangingEnum)
    If (Operation = exScheduleCreateEvent) Then
        iCreatingEvent = iCreatingEvent + 1
    End If
End Sub

Private Sub Schedule1_LayoutEndChanging(ByVal Operation As EXSCHEDULELibCtl.LayoutChangingEnum)
    If (Operation = exScheduleCreateEvent) Then
        iCreatingEvent = iCreatingEvent - 1
    End If
End Sub