>>Hi,
>>
>>I am trying to see what the Date Time pick control would look like. But I am getting errors.
>>1. I downloaded FoxClasses.zip and extracted in one of folders on my computer.
>>2. I open project Samples.pjx. I get error "Project Error: An unspecified registry error occurred". I click OK to go past the error.
>>3. Select classlib DateTimectrls. Then click on DateTimePick and then on Modify. Error:
>>

>>"Error loading file - record number 15. Timepick1 or one of its members
>>Parent: Expression evaluated to an illegal value"
>>

>>
>>If I run the Samples.exe and then select (from the tree) Date and Time Controls -> Form DataTimeCtrls1, I get error:
>>

>>Error loading file - record number 5. Datetimepick1 or one of its members. 
>>Parent: Error with grdTime - Height: Expression evaluates to an illegal value.
>>

>>
>>Any suggestions?
>
>
>My bad. Releasing to public for free I was lazy updating the docs. For datetime, date, time picking just use the dtControl and set its ControlType property (and PeriodPicker for a datetime range). DatePick, TimePick, DateTimePick classes are obsolete from my POV and I didn't update them at all.
>
>Here is a sample in code (easy to post, harder to write in fact):
>
>

>Set Century on 
>* Set Seconds Off
>
>Public oForm
>oForm = Createobject('testForm')
>oForm.Show()
>
>Define Class testForm As Form
>	Add Object datetimeCheck As dtPick With Top = 10, Left = 20, controltype=1
>	Add Object dateCheck      As dtPick With Top = 40, Left = 20, controltype=2
>	Add Object timeCheck     As dtPick With Top = 70, Left = 20, controltype=3
>
>	Add Object btnShow As CommandButton With Top = 110, Left = 20, Caption = "Show Values Selected", AutoSize=.T.
>
>	Procedure btnShow.Click
>		Local lcValues
>		TEXT to lcValues textmerge noshow
>Type: [<< Type('thisform.dateTimeCheck.Value') >>] Value : [<< thisform.dateTimeCheck.Value >>]
>Type: [<< Type('thisform.dateCheck.Value') >>] Value : [<< thisform.dateCheck.Value >>]
>Type: [<< Type('thisform.timeCheck.Value') >>] Value : [<< thisform.timeCheck.Value >>]
>		ENDTEXT
>
>		Messagebox(m.lcValues)
>	Endproc
>
>Enddefine
>
>Define Class dtPick As DtControl Of 'd:\FoxyClasses\Classes\DateTimeCtrls.vcx'
>Enddefine
>
>

Hi Cetin,
Thank you for the update and for the code.