>*** Calculate where the popup calendar should be instantiated >*** So it pops up directly below the date text box >*** SYSMETRIC( 9 ) is the height of the Form's title bar in case you were curious >lnTop = OBJTOCLIENT( Thisform, 1 ) + OBJTOCLIENT( This, 1 ) + This.Height + ; > IIF( Thisform.TitleBar = 1, SYSMETRIC( 9 ) + 2, 2 ) >lnLeft = OBJTOCLIENT( Thisform, 2 ) + OBJTOCLIENT( This, 2 ) > >DO FORM Calendar WITH lnTop, lnLeft, This.txtDate.Value TO luValue >