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