Private Sub Command1_MouseDown(Button As Integer, _
Shift As Integer, x As Single, y As Single)
 
'Rechte Maustaste - PopUpMenü
If Button = 1 Then
 MenuBar1.PopUp MenuBar1.MenuItems("MenuPopUp"), _
 Command1.Left, Command1.Top
End If
End Sub
 
Private Sub Form_Load()
Dim oMenu As sevMenuXP.MenuItem
 
With MenuBar1.MenuItems
  Set oMenu = .AddPopup("MenuPopUp")
  .Add "&Kopieren", "copy", oMenu
  .Add "&Ausschneiden", "cut", oMenu
  .Add "&Einfügen", "paste", oMenu
  .Add "&Löschen", "delete", oMenu
End With
End Sub