%INCLUDE "lsconst.lss"

Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uid As NotesUIDocument
Dim uis As NotesUIScheduler
Set ws = New NotesUIWorkspace
Set uid = ws.CurrentDocument
Set uis = uid.GetSchedulerObject("Main")
i = Inputbox("If you want, change and press OK", _
"DisplayHoursPerDay", _
uis.DisplayHoursPerDay)
If i <> "" And i <> uis.DisplayHoursPerDay Then
uis.DisplayHoursPerDay = i
End If
End Sub

関連項目

DisplayHoursPerDay プロパティ

用語集