在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项；

A．Private Sub Form _ Mouse Up(Button As Integer，Shift AS Integer，_　　　　　　　　　　　　　　　　　X As Single，Y As Singl　　　　If Button=2 Then　　　　　　PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_　　　　　　　　vbPopupMenuRightButton，X，Y，mnuEditOpen　　　　End If　　End Sub
B．Private Sub Form _ MouseUp(Button AS Integer，Shift AS Integer，_　　　　　　　　　　　　　　　　X As Single，Y As Singl　　　　If Button=2 Then　　　　　　PopupMenu mnuEdit，　　　　End If　　End Sub
C．Private Sub Form _ MouseUp(Button AS Integer，Shift AS Integer，_　　　　　　　　　　　　　　　　X As Single，Y As Singl　　　　PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_　　　　　　　　　　　vbPopupMenuRightButton　　End Sub
D．Private SUb Form _ MouseUp(Button AS Integer，_　　　　　　　　　　　　　　　　Shift As Integer，X As Single，Y As Singl　　　　If Button=2 Then　　　　　　　　　PopupMenu mnuEdit，2　　　　End If　　End Sub