==============================================
Set PopupMenu to happen when a form is clicked:

Sub Form_Click ()
       PopupMenu mnuFile   'Left mouse activated
End Sub
Sub Form_Click ()
    If Button = 2 Then PopupMenu mnuFile   'Right mouse activated
End Sub