' Sub IncludeSchedule ' EndSub ' Set $Menus = $TopPage.Menus ' If $Login
Office Welcome, $Login.Name
$TimeStamp.hour:$TimeStamp.Minute00 $TimeStamp.AMPM, $TimeStamp.Day $TimeStamp.MONTH, $TimeStamp.Year ($TimeStamp.WDAY)
' If ! $Login.TopPage.HideStartMenu ' $Sep = 0
' For Each $Menu in $TopPage.StartMenus ' $Label = $Menu.Label ' Set $m = $Menus.$Label ' If ! $Menu.Hide and $m.Installed ' If $Sep = 7 ' $Sep = 0 ' EndIf ' Inc $Sep ' If $m.TopPage ' Elif $m.URL ' EndIf ' EndIf ' Next

$m.Name
$m.Name
' EndIf ' If $Login.TopPage.LeftMenus ' Set $lm = $Login.TopPage.LeftMenus ' Set $rm = $Login.TopPage.RightMenus ' Else ' Set $lm = $TopPage.LeftMenus ' Set $rm = $TopPage.RightMenus ' EndIf ' If ! $Login.TopPage.HideSchedule and $Menus.Schedule.Installed ' $MenuSchedule ' EndIf
' For Each $Menu in $lm ' $Label = $Menu.Label ' Set $m = $Menus.$Label ' If ! $Menu.Hide and $m.Installed ' $Sub = $m.Sub ' $Sub ' EndIf ' Next
' For Each $Menu in $rm ' $Label = $Menu.Label ' Set $m = $Menus.$Label ' If ! $Menu.Hide and $m.Installed ' $Sub = $m.Sub ' $Sub ' EndIf ' Next

[Frame View] [Change Password] [Layout Settings] [Help] ' Else
' If $Office.URL ' Else ' EndIf

$Office.Name

$Office.Name
' If $TopPage.StartMenu ' $Sep = 0 ' For Each $Menu in $TopPage.StartMenus ' $Label = $Menu.Label ' Set $m = $Menus.$Label ' If ! $Menu.Hide and $m.Installed ' If $Sep = 5 ' $Sep = 0 ' EndIf ' Inc $Sep ' If $m.TopPage ' Elif $m.URL ' EndIf ' EndIf ' Next

$m.Name
$m.Name
' EndIf ' If $TopPage.LinkMenu
' EndIf ' If $TopPage.StartMenu or $Login [Frame View]

' EndIf ' EndIf

Cybozu (R) Office Version $Version ($Build)
User ID No.: $UserNumber