* *** i can not use scalemode as this interferes with the Outlook ListBar * *** (downloadeble in the download section) * *** OldFormScaleUnit = THISFORM.SCALEMODE * *** OldScreenScaleUnit = _SCREEN.SCALEMODE * *** THISFORM.SCALEMODE = 0 * *** _SCREEN.SCALEMODE = 0 * *** THISFORM.SCALEMODE = OldFormScaleUnit * *** _SCREEN.SCALEMODE = OldScreenScaleUnit * *** seems to returns in pixels nTargetRow = OBJTOCLIENT(THIS.Btn1, 1) + THIS.Btn1.HEIGHT nTargetCol = OBJTOCLIENT(THIS.Btn1, 2) * *** for simplizity i've take out the border/titlebar calculation DEFINE POPUP m_MenuButtons SHORTCUT RELATIVE margin *DEFINE POPUP m_MenuButtons SHORTCUT RELATIVE FROM m.nTargetRow, m.nTargetCol DEFINE BAR m.i OF m_MenuButtons ; PROMPT "Test" * *** seems to need need foxels ACTIVATE POPUP m_MenuButtons at m.nTargetRow, m.nTargetColI thank you for all your help in advance!