1. set ctmday1 with this parameters
Thisform.ctMDay1.timetextwidth=50
Thisform.ctMDay1.timestart=9*60 && 9 AM
Thisform.ctMDay1.timeend=20*60 && 8 PM
Thisform.ctMDay1.displaycolumns = HOWMANYCOLUMNS
Thisform.ctMDay1.virtualColumns = 15
Thisform.ctMDay1.HeightOffset=1
Thisform.ctMDay1.timetype =1
Thisform.ctMDay1.TaskBars = .F.
Thisform.ctMDay1.TimeUnits = 4
Thisform.ctMDay1.primetimecolor=COLOR1
Thisform.ctMDay1.nonprimecolor=COLOR2
Thisform.ctMDay1.BackColor=COLOR3
Thisform.ctMDay1.barmovecolor=COLOR4

2. create appointment

be carreful! ctMDay1 CLICK METHODS
* u have to select block

SAYRAN = RAND(-1) && any random number
nStart =Thisform.ctMDay1.SelectStartTime
nEnd =Thisform.ctMDay1.SelectEndTime
nDate = Thisform.ctMDay1.FindColumnDate( Thisform.ctMDay1.SelectColumn() )
nColumn= Thisform.ctMDay1.SelectColumn()
nCode = Thisform.ctMDay1.FindColumnCode(nColumn)
nInsert = Thisform.ctMDay1.Object.AddAppointment(nStart, nEnd, 0, "" )
Thisform.ctMDay1.AppointCode(nInsert) = nCode
Thisform.ctMDay1.AppointLocateText(nInsert) = Alltrim(DETAIL_ABOUT_APPOINTMENT )
Thisform.ctMDay1.AppointText(nInsert) = Alltrim(PERSON_NAME)

Thisform.ctMDay1.AppointBackColor(nInsert) = COLOR1
Thisform.ctMDay1.AppointForeColor(nInsert) = COLOR2

Thisform.ctMDay1.AppointItemData(nInsert)=SAYRAN
Thisform.ctMDay1.AppointHorzLock(nInsert) =.T.
Thisform.ctMDay1.AppointReadOnly(nInsert)=.T. && OR .F.
Thisform.ctMDay1.AppointLockTimes(nInsert)=.T. && OR .F.

3. select appointment
be careful ! ctMDay1.APPSELECT METHODS

SAYRAN = THISFORM.ctMDay1.AppointItemData(nindex)
nStart = THISFORM.ctMDay1.AppointTimeStart(nindex)
nEnd = THISFORM.ctMDay1.AppointTimeEnd(nindex)
nDate = THISFORM.ctMDay1.AppointDate(nindex)
nColumn= THISFORM.ctMDay1.SelectColumn()
nCode = THISFORM.ctMDay1.FindColumnCode(nColumn)
doktorkod=THISFORM.ctMDay1.AppointCode(nindex)