Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Call PopupMenu(mnuPopupMenu)
End Sub