>no cigar :-)
>


found my problem:

this works:

DEFINE POPUP _SC SHORTCUT RELATIVE FROM MROW(),MCOL()
FOR I = 1 TO LEN(x1)
	x2=SUBSTR(x1,I,1)
	x3=[DEFINE BAR ]+STR(i)+[  OF _SC PROMPT "]+x2+["]
	&x3
	x4=[ON SELECTION BAR ]+TRANSFORM(i)+[ OF _SC  _screen.ActiveForm.MENUSELECTED(BAR(),x1)]
	&x4
ENDFOR

ACTIVATE POPUP _SC

the define bar need the bar # not the prompt :-)

Peter