        , 
       - 
     .
  ,        .

   
oCalendar = createobject( "Calendar", THIS.Parent.txtDate.Value )

 ,      
oCalendar = createobject( "Calendar" )

*     
oCalendar.Top = THIS.Top + THIS.Parent.Top + THISFORM.Top + sysmetric( 9 ) + sysmetric( 11 ) + 4
oCalendar.Left = THIS.Left + THIS.Parent.Left + THISFORM.Left + sysmetric( 11 ) + 4

*   
oCalendar.Show( )
THIS.Parent.txtDate.Value = oCalendar.ReturnDate
oCalendar.Release( )

 ,   ,  
     F1  F12.
     .

  VFP5,     .
    ,   " ",
      .
    ,   ,   :)))

 ... :)

    ( )    GraninDm@mail.ru