I have a container with a button on it. When I click the button, I want
to pop up a shortcut menu. The menu pops up, but WAY off the the right
and WAY below the form.



** Within the container
WITH This

  ** Define top, left position
  nRow = ThisForm.Top + .Top + .tbnPopup.Height
  nCol = ThisForm.Left + .Left

  ** Create popup
  DEFINE POPUP PopItems FROM nRow, nCol SHORTCUT

  ** Add the menu bars
  FOR nItem = 1 TO ALEN(aValues, 1)

    DEFINE BAR nItem OF PopItems PROMPT aValues[nItem, 2]

  ENDFOR

  ** Define selection actions
  ON SELECTION POPUP PopItems oContainer.SelectItem()

  ** Show the popup
  ACTIVATE POPUP PopItems

ENDWITH