Try

DEFINE POPUP popMonths shortcut RELATIVE FROM MROW(),MCOL()

>In a label I have:
>

>This.Parent.MonthClicked(This.Parent)
>

>
>
>and in the MonthClicked routine I have:
>
>

>** PROCEDURE MonthClicked
>LPARAMETERS oThis
>
>  WITH This
>
>    DEFINE POPUP popMonths FROM MROW(), MCOL() MARGIN
>
>    DEFINE BAR 1 OF popMonths PROMPT "\<January"
>    DEFINE BAR 2 OF popMonths PROMPT "\<February"
>    DEFINE BAR 3 OF popMonths PROMPT "\<March"
>    DEFINE BAR 4 OF popMonths PROMPT "\<April"
>    DEFINE BAR 5 OF popMonths PROMPT "\<May"
>    DEFINE BAR 6 OF popMonths PROMPT "\<June"
>    DEFINE BAR 7 OF popMonths PROMPT "\<July"
>    DEFINE BAR 8 OF popMonths PROMPT "\<August"
>    DEFINE BAR 9 OF popMonths PROMPT "\<September"
>    DEFINE BAR 10 OF popMonths PROMPT "\<October"
>    DEFINE BAR 11 OF popMonths PROMPT "\<November"
>    DEFINE BAR 12 OF popMonths PROMPT "\<December"
>	
>    ON SELECTION POPUP popMonths oThis.MonthSelected()
>    ACTIVATE POPUP popMonths
>
>ENDWITH
>
>RETURN
>

>
>Here is the MonthSelected routine:
>
>

>** PROCEDURE MonthSelected
>
>  LOCAL nMonth, nDay, nYear, tDateTime, dDate
>
>  WITH This
>
>    nMonth  = BAR()
>    nDay    = ._nDay
>    nYear   = ._nYear
>		
>    tDateTime =	DATETIME(nYear, nMonth, nDay)
>    dDate     = TTOD(tDateTime)
>
>    .LoadCalendar(dDate)
>	
>  ENDWITH
>
>RETURN
>

>
>When a bar is selected, the code in the MonthSelected routine runs, but the popup stays
>open. What gives?