Hi Eric. This code does not work!!

Private Sub MappointControl1_BeforeClick(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean)

If Button = 1 Then
Cancel = True
End If

End Sub

I've tried it but right and left button are all enabled!

I use AxMappointControl1 as name with my control so my code is


Private Sub AxMappointControl1_BeforeClick(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean)

If Button = 1 Then
Cancel = True
End If

End Sub

I work with Visual Basic.NET