Hi Dave,

Try something like the following.

Assuming that RetVal is a property of the oCalendar class. Also assuming that your OK/Cancel buttons HIDE the object not release it so that you can get at the "RetVal" property first then manually release the object

oCalendar =NewObject('frmCalendar', 'Misc.vcx')
oCalendar.Init(dBirthdate)
oCalendar.Show(1)
dBirthDate = oCalendar.RetVal 
oCalendar.Release()

>If I substantiate a form as:
> oCalendar = NEWOBJECT('frmCalendar','Misc.vcx')
>
>Then Initiatialize it and pass parameter EMPTY(dbirthdate):
> oCalendar.Init(dBirthdate)
>
>Then Show the form:
> dBirthdate = oCalendar.Show()
>
>The RETURN in the form classes UNLOAD doesn't get returned to dBirthdate. Is there another way to amend the value of dBirthdate, obviously my SHOW() syntax is incorrect.