>>"Error loading file - record number 15. Timepick1 or one of its members >>Parent: Expression evaluated to an illegal value" >>>>
>>Error loading file - record number 5. Datetimepick1 or one of its members. >>Parent: Error with grdTime - Height: Expression evaluates to an illegal value. >>>>
>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 > >Cetin,