Hi Karen,

the Calendar window isn't modal and as such wouldn't wait for the user to make a selection. Since you can't change its modality, you need to place it inside a modal form:

Public goX
goX = CreateObject("calForm")
goX.Show()
MessageBox(_diarydate)

Define Class calForm as Form
	WindowType = 1
	Procedure Activate 
		Activate Window Calendar in (This.Name)
	EndProc
EndDefine 

As this displays two title bars, you might need to move the window around a little to hide the borders and title of the calendar window. You could even nest two forms. One is a borderless and title bar less form that just leaves the inner part of the calendar visible. This form would be activated inside the modal form which has a button to close the form.