Assuming your map control is mpCtrl1, add this code:

Private Sub mpCtrl1_BeforeClick(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, _
ByVal Y As Long, Cancel As Boolean)
If Button = 2 Then
Cancel = True
End If
End Sub