How to disable the right click??

I want to disable the right click after starting the program, how can do it??

------------------

try:


Sub Function Form_MouseDown()
If Button = 2 Then
'do nothing
End If
End Sub

Thanks for help