Private Sub Form_Load()
  Dim oMenu As sevMenuXP.MenuItem
 
  With MenuBar1.MenuItems
    Set oMenu = .AddPopup("MyPopUp")
    .Add "Menü 1", "Menu1", oMenu
    .Add "Menü 2", "Menu2", oMenu
    .Add "Menü 3", "Menu3", oMenu
  End With
  ...
End Sub

MenuBar1.PopUp MenuBar1.MenuItems("MyPopUp")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de