Private Sub CalendarControl_EventAdded(ByVal EventID As Long)
    Dim pEvent As CalendarEvent
    Set pEvent = CalendarControl.DataProvider.GetEvent(EventID)
    
    If Not pEvent Is Nothing Then
        CalendarControl.RedrawControl
        If MsgBox("Would you like to save the data?", vbYesNo) = vbYes Then
            ' do nothing
        Else
            ' delete event
            CalendarControl.DataProvider.DeleteEvent pEvent
        End If
    End If
End Sub