> SET CLASSLIB TO calendario ADDITIVE > > Thisform.Calendario=CREATEOBJECT("Calendario") > Thisform.Calendario.Left= This.Left+This.Width+Thisform.Left+10 > Thisform.Calendario.Top = This.Left+This.Width+Thisform.Top > Thisform.Calendario.Show >>
thisform.Hide()And in your calling program,
thisform.Calendario.Show() dRetDate = thisform.Calendario.RetVal thisform.Calendario.Release()