Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Me.PopupMenu mnuOp ' mnuOp tendrá todas las opciones del menúEnd IfEnd Sub