WITH Thisform .tRetVal = .oCalendar.Object.Value .Release() ENDWITHThis code in the unload:
RETURN Thisform.tRetValSo the calendar form can be called like this (say, for example from the bdlClick of a date text box):
DO FORM GetDate WITH lnTop, lnLeft, This.Value TO luValue This.Value = luValue