Mark,
Here's the function that you wish for. It's based on Hiten's trick. In addition to your heading tag parameter, my function excepts '|' as the separater between menu prompt. HTH.

LPARAMETERS pcPrompt1, pcPrompt2, pcPrompt3, pcPrompt4, pcPrompt5, pcPrompt6, pcPrompt7, pcPrompt8, pcPrompt9, pcPrompt10, pcPrompt11, pcPrompt12, pcPrompt13, pcPrompt14, pcPrompt15
*&
LOCAL lnCount, lcPopupName, lcValue, lnActivateBarNo
*&
lcPopupName = "Choices"
lnActivateBarNo = 0
*&
DEFINE POPUP (lcPopupName) SHORTCUT FROM MROW(), MCOL() FONT "Tahoma"
*&
FOR lnCount = 1 TO 10
	lcVar = "pcPrompt"+TRANSFORM(lnCount)
	lcValue	= &lcVar
	*&
	IF VARTYPE(lcValue) = "C" AND NOT EMPTY(lcValue)
		lcValue = ALLTRIM(lcValue)
		*&
		DO CASE
		CASE LEFT(lcValue, 3) = "[H]"
			DEFINE BAR CNTBAR(lcPopupName)+1 OF (lcPopupName) PROMPT SUBSTR(lcValue, 4) SKIP FOR .T. STYLE "B" COLOR RGB(0,0,0,255,255,255),,,,,RGB(0,0,0,255,255,255)
		CASE lcValue == "|"
			DEFINE BAR CNTBAR(lcPopupName)+1 OF (lcPopupName) PROMPT "\-"
		OTHERWISE
			DEFINE BAR CNTBAR(lcPopupName)+1 OF (lcPopupName) PROMPT lcValue
			*&
			IF EMPTY(lnActivateBarNo)
				lnActivateBarNo = CNTBAR(lcPopupName)
			ENDIF
		ENDCASE
	ENDIF
NEXT lnCount
*&
ON SELECTION POPUP (lcPopupName) MESSAGEBOX("Selected: "+PROMPT())
ACTIVATE POPUP (lcPopupName) BAR lnActivateBarNo
*&