Examples: ScheduleGridStart property

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uid As NotesUIDocument
  Dim uis As NotesUIScheduler
  Dim dt As NotesDateTime
  Set ws = New NotesUIWorkspace
  Set uid = ws.CurrentDocument
  Set uis = uid.GetSchedulerObject("Main")
  Set dt = New NotesDateTime("")
  Call dt.SetNow
  Call dt.AdjustHour(1)
  Set uis.ScheduleGridStart = dt
End Sub