Private Sub cmd_PopUp_Click()
Dim R As RECT
  Dim X As Long
  Dim Y As Long
  Dim nItem As Long
  Dim hWnd As Long
 
  ' Absolute Position des CommandButtons auf
  ' dem Bildschirm ermitteln
  hWnd = GetFocusAPI()
  GetWindowRect hWnd, R
  X = R.Left + cmd_PopUp.Left / 15
  Y = R.Top + (cmd_PopUp.Top + cmd_PopUp.Height) / 15
.....