' Deklaration
Private Declare Function ClientToScreen Lib "user32" ( _
  ByVal hwnd As Long, lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Sub Command1_Click()
  Dim P As POINTAPI
  Dim oMenu As MenuItem
 
  ClientToScreen Command1.hwnd, P
  With MenuBar1
    Set oMenu = .MenuItems("mnuPopUp")
    .PopUp oMenu, P.x, P.y + (Command1.Height / Screen.TwipsPerPixelY)
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de