$User.Name ' Set $Calendar = $User.Schedule.Calendar ' Set $Calendar.Share = $Schedule.Calendar ' $Calendar.UID = $User.ID ' Set $s = $Calendar.$Date ' For Each $e in $s ' If ! $e.Critical and (! $e.Private or ($ID = $Login.ID))

$e.Title$$e.Regular$$e.Shared ' EndIf ' Next
' If $s ' $s.SetHour = $SetHour ' $s.EndHour = $EndHour ' $s.Unit = $Schedule.Unit ' For Each $e in $s ' If $e.Private and ($ID != $Login.ID)
' Elif $e.Span and $e.Critical $e.Title$$e.Regular$$e.Shared ' Elif $e.Span ' EndIf ' Next ' Else ' EndIf