Private Function isOverlap(intBeginTime As Integer, intEndTime As Integer) As Boolean
　　    Dim intTimeSlot As Integer
　　    For intTimeSlot = intBeginTime To intEndTime - 1
　　        If aTimeSlots(intTimeSlot) = TIMEALLOCATED Then
　　            isOverlap = True
　　            Exit Function
　　        End If
　　    Next intTimeSlot
　　    isOverlap = False
　　End Function