Max All Day Events

Public g_nTopAllDayEvent As Long
 
Private Sub Form_Initialize()
    g_nTopAllDayEvent = 0
End Sub
Private Sub CalendarControl_PrePopulate( _
                ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, _
                ByVal Events As XtremeCalendarControl.CalendarEvents)
    
    Dim i As Long
    Dim arIndexesToRemove As New Collection
    Dim pEvent As CalendarEvent
    
    For i = 0 To Events.Count - 1
        Set pEvent = Events(i)
        
        If pEvent.AllDayEvent And arIndexesToRemove.Count < g_nTopAllDayEvent Then
            arIndexesToRemove.Add i
        End If
    Next
    
    For i = arIndexesToRemove.Count To 1 Step -1
        Events.Remove arIndexesToRemove(i)
    Next
End Sub
 
Private Sub cmdADEDown_Click()
    g_nTopAllDayEvent = g_nTopAllDayEvent + 1
    CalendarControl.Populate
End Sub
 
Private Sub cmdADEUp_Click()
    If g_nTopAllDayEvent > 0 Then
        g_nTopAllDayEvent = g_nTopAllDayEvent - 1
        CalendarControl.Populate
    End If
End Sub