DBI controls are zero based so you should use lnl = 0 to toScheduleObject.ListCount - 1. As to the other issues I don't know.

Hmmm. Are you telling me that their help file is inccorect?

ctSchedule (8.0) Scheduling Control
AddColorBar Method

Description
Adds a new color block to the schedule area.

Syntax

object.AddColorBar (lTimeStart, lTimeEnd, lDateStart, lDateEnd, clrTimeColor, nIndex)


Parameters
lTimeStart
The start time of the color bar.
lTimeEnd
The end time of the color bar.
lDateStart
The start date of the color bar.
lDateEnd
The end date of the color bar.
clrTimeColor
The color to assign to the color bar.
nIndex
The 1-based index value of the schedule item to assign to the color bar. If a value of 0 is sent to this parameter, the color bar will be displayed from the first schedule item until the last. If a value of -1 is assigned to this parameter the color bar will appear below the time area in the ruler.
Return Value
The 1-based index value of the color bar.

Remarks

The start and end times of a bar color are based on the number of minutes since midnight. A value of 540 represents 9:00 am.

The start and end dates of a color bar are based on the number of days since January 1, 1900. A value of 0 represents January 1, 1900. Some platforms use a different base date. If this is the case the DateOffset property is used to synchronize the base date of the control and the base date of the platform.


Example

[Visual Basic and Access]

intIndex = Me.ctSchedule.AddColorBar(0, 180, 38722, 38722, RGB(125,125,125), 0)

[Visual FoxPro]

intIndex = thisform.ctSchedule.AddColorBar(0, 180, 38722, 38722, RGB(125,125,125), 0)