Private Sub Form_Load()
    MyPopup.Visible = False
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
     If Button = 2  Then ' rechte Maustaste
             me.PopupMenu MyPopup
     End If 
End Sub