The activex has a GotoDate() function you could use:

thisform.OLECONTROL1.gotoDate("01/01/2000")

To change the date or you can right mouse on the activex at runtime and the select GotoDate is there also with a pop-up calendar. I am sorry I don't know where to find detailed information about this activex.

Here is an example to change the views in the Calendar

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
	Top = 0
	Left = 0
	Height = 506
	Width = 807
	DoCreate = .T.
	Caption = "Form1"
	Name = "form1"
	ADD OBJECT olecontrol1 AS olecontrol WITH ;
		Top = 12, ;
		Left = 48, ;
		Height = 420, ;
		Width = 456, ;
		Name = "Olecontrol1", ;
		OleClass = "OVCtl.OVCtl.1"
	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 204, ;
		Left = 528, ;
		Height = 27, ;
		Width = 115, ;
		Caption = "New Appointment", ;
		Name = "Command1"
	ADD OBJECT command2 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 252, ;
		Left = 528, ;
		Height = 27, ;
		Width = 95, ;
		Caption = "Address Book", ;
		Name = "Command2"
	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		AutoSize = .F., ;
		ButtonCount = 7, ;
		Value = 1, ;
		Height = 141, ;
		Left = 528, ;
		Top = 24, ;
		Width = 240, ;
		Name = "Optiongroup1", ;
		Option1.Caption = "Day/Week/Month", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 0, ;
		Option1.Top = 5, ;
		Option1.Width = 204, ;
		Option1.AutoSize = .F., ;
		Option1.Name = "Option1", ;
		Option2.Caption = "Day/Week/Month View With AutoPreview", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Style = 0, ;
		Option2.Top = 24, ;
		Option2.Width = 235, ;
		Option2.AutoSize = .T., ;
		Option2.Name = "Option2", ;
		Option3.Caption = "Active Appointments", ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Style = 0, ;
		Option3.Top = 43, ;
		Option3.Width = 204, ;
		Option3.AutoSize = .F., ;
		Option3.Name = "Option3", ;
		Option4.Caption = "Events", ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Style = 0, ;
		Option4.Top = 62, ;
		Option4.Width = 204, ;
		Option4.AutoSize = .F., ;
		Option4.Name = "Option4", ;
		Option5.Caption = "Annual Events", ;
		Option5.Height = 17, ;
		Option5.Left = 5, ;
		Option5.Style = 0, ;
		Option5.Top = 81, ;
		Option5.Width = 204, ;
		Option5.AutoSize = .F., ;
		Option5.Name = "Option5", ;
		Option6.Caption = "Recurring Appointments", ;
		Option6.Height = 17, ;
		Option6.Left = 5, ;
		Option6.Style = 0, ;
		Option6.Top = 100, ;
		Option6.Width = 204, ;
		Option6.AutoSize = .F., ;
		Option6.Name = "Option6", ;
		Option7.Caption = "By Category", ;
		Option7.Height = 17, ;
		Option7.Left = 5, ;
		Option7.Style = 0, ;
		Option7.Top = 119, ;
		Option7.Width = 204, ;
		Option7.AutoSize = .F., ;
		Option7.Name = "Option7"
	PROCEDURE Init
		thisform.oLECONTROL1.Folder="Calendar"
		thisform.oLECONTROL1.gotoDate("01/01/2000")
	ENDPROC
	PROCEDURE command1.Click
		thisform.OLECONTROL1.newAppointment()
	ENDPROC
	PROCEDURE command2.Click
		thisform.OLECONTROL1.addressbook()
	ENDPROC
        PROCEDURE optiongroup1.Option1.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option2.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option3.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option4.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option5.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option6.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option7.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
ENDDEFINE

>This is a great control. Much nicer than outlook.application....
>is there a document about the object model
>e.g. how to set the monthview, set a particular date etc..
>Thanks
>
>
>Peter
>
>
>>You probably allready have it
>>
>>

PUBLIC oform1
>>oform1=NEWOBJECT("form1")
>>oform1.Show
>>RETURN
>>DEFINE CLASS form1 AS form
>>    Top = 0
>>	Left = 0
>>	Height = 250
>>	Width = 600
>>	DoCreate = .T.
>>	Caption = "Form1"
>>	Name = "Form1"
>>	ADD OBJECT olecontrol1 AS olecontrol WITH ;
>>		Top = 12, ;
>>		Left = 48, ;
>>		Height = 216, ;
>>		Width = 504, ;
>>		Name = "Olecontrol1", ;
>>		OleClass = "OVCtl.OVCtl.1"
>>	PROCEDURE Init
>>		this.olecontrol1.folder = "Calendar"
>>	ENDPROC
>>ENDDEFINE

>>
>>
>>>Hello Plinio,
>>>
>>>Unfortunally the control that I am interested in is not going to be included in Sedna.
>>>
>>>The ActiveX control that I need is ctMDay ( http://www.dbi-tech.com/ctmday.asp).
>>>
>>>
>>>This control does what I am looking for :
>>>
>>>I would like to see daily appointment schedule for all the employees(about 10 employees). This is a beauty/Spa business. Example :
>>>
>>> John Smith Sergio Daly Mark Hamilton
>>> ---------- ----------- -------------
>>>
>>>AM
>>>
>>>8 Hair Cut
>>>
>>>9 Pedicure
>>>
>>>10
>>>
>>>11
>>>
>>>12(PM)
>>>
>>>1
>>>
>>>2
>>>
>>>3
>>>
>>>4
>>>
>>>
>>>
>>>
>>>Do you know where I can find a more affordable Active control to accomplish the above requirement?
>>>
>>>Thanks,
>>>Sergio