Option Explicit
 
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()
  ' PopUp genau unterhalb des CommandButtons
  Dim pt As POINTAPI
 
  ClientToScreen Command1.hwnd, pt
 
  MenuBar1.PopUp MenuBar1.MenuItems("MenuPopUp"), _
    pt.x, pt.y + Command1.Height / Screen.TwipsPerPixelY
End Sub
 
Private Sub Form_Load()
  ' PopUp-Menü
  Dim oMenu As sevMenuXp.MenuItem
 
  With MenuBar1.MenuItems
    Set oMenu = .AddPopup("MenuPopUp")
    .Add "Feld1", "keyFeld1", oMenu
    .Add "Feld2", "keyFeld2", oMenu
    .Add "Feld3", "keyFeld3", oMenu
 
    ' Untermenü zu "Feld1" (Key: keyFeld1)
    Set oMenu = .Item("keyFeld1")
    .Add "UnterFeld1", "KeySubFeld1", oMenu
    .Add "UnterFeld2", "KeySubFeld2", oMenu
    .Add "UnterFeld2", "KeySubFeld3", oMenu
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de