И зачем столько сложностей?
Второе, помести контейнер в тулбар и проверь как работать
будет.

Третье: Вот тоже самое :)
LOCAL lnBar,lnRow,lnCol,lnScale,lnLeft
**************************************
lnScale=THISFORM.ScaleMode
lnLeft=THIS.Left
THIS.Left=THIS.Left-1
THISFORM.ScaleMode=0
**************
lnRow=THIS.Top+THIS.Height
lnCol=THIS.Left
**************
THISFORM.ScaleMode=lnScale
THIS.Left=lnLeft
**************************************
DEFINE POPUP MyPrintMenu SHORTCUT FROM lnRow,lnCol 
DEFINE BAR 1 OF MyPrintMenu PROMPT "Первое меню" ;
  PICTURE "bmp\doc.small.bmp"
DEFINE BAR 2 OF MyPrintMenu PROMPT "\-"
DEFINE BAR 3 OF MyPrintMenu PROMPT "Второе меню" ;
  PICTURE "bmp\doc.small.bmp"
****************************
ON SELECTION POPUP MyPrintMenu DEACTIVATE POPUP
*******************************
ACTIVATE POPUP MyPrintMenu
lnBar=BAR()
RELEASE POPUPS MyPrintMenu
*********************************
И зачем городить столько то?

Это я копирнул менюшку из клика кнопки :)