Change Working Time

[meg99]

Using 2003. I have a form with a command button titled "Calendar"
that calls the ChangeWorkingTime dialog box.
The problem is that most of the contents of the dialog box do not
display. However, if I choose "Tools, Change Working Time" from the
native menu everything works fine. Here is the code behind the
command button:

Private Sub cbCalendar_Click()
ChangeWorkingTime
End Sub

and here is the code that is generated when I select from the menu and
record it:

Sub Macro1()
ChangeWorkingTime
End Sub

During the action of recording the dialog pops up and all of the
objects appear. However, when I run either macro, the dialog frame
appears but most of the imbedded objects do not.

Anybody have a clue?

meg99