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

A．Private Sub Form _ Mouse Up(Button As Integer，Shift AS Integer，_

　　　　　　　　　　　　　　　　　X As Single，Y As Single)

　　　　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 Single)

　　　　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 Single)

　　　　PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_

　　　　　　　　　　　vbPopupMenuRightButton

　　End Sub

D．Private SUb Form _ MouseUp(Button AS Integer，_

　　　　　　　　　　　　　　　　Shift As Integer，X As Single，Y As Single)

　　　　If Button=2 Then

　　　　　　　　　PopupMenu mnuEdit，2

　　　　End If

　　End Sub