Как воспользоваться календарем в скриптах для выбора даты

'<doc Выбор даты
'<par %1 As String Первоначальная дата>
'<par %2 As String Заголовок>
'>
Function SelectDate( StartDate, Caption )
   SelectDate = Null
   Set Form = TCSApp.TCSForm( "", False )
   If Caption="" Then Caption = "Задайте дату:"
   Form.Caption = Caption
   Call Form.CreateControl( "TVBDateEdit", "FDate", "" )
   Set C = Form.Controls( "FDate" )
   C.Left = 5
   C.Top = 5
   C.Width = 400
   If Not IsNull(StartDate) Then C.Date = StartDate

   Call Form.CreateControl( "TVBBitBtn", "OkBtn", "" )
   Set B = Form.Controls( "OkBtn" )
   B.Caption = "Выбрать"
   B.Width = 120
   B.Left =  C.Left + C.Width - B.Width
   B.Top = C.Top + C.Height + 10
   B.ModalResult = 1

   Form.Width = 400 + 15
   Form.Height = B.Top + B.Height + 40
   Form.ShowModal
   If Form.ModalResult=1 Then SelectDate = C.Date
End Function


Sub Test1
  D1 = SelectDate( Date, "" )
  MsgBox "Select date:" & D1
End Sub