Private Sub Form_Load()
  Dim oMenu As sevMenuXP.MenuItem
  With MenuBar1.MenuItems
    .AddPopup "popup1"
    Set oMenu = .Item("popup1")
    .Add "item1", "item1", oMenu
    .Add "item2", "item2", oMenu
  End With
End Sub
 
Private Sub Command1_Click()
  MenuBar1.PopUp MenuBar1.MenuItems("popup1")
End Sub
 
Private Sub MenuBar1_ItemClick(ByVal Item As sevMenuXP.MenuItem)
  MsgBox Item.Key
End Sub