Как запретить вызов события Click при нажатии правой кнопки мыши

Imports System.ComponentModel
 
Public Class Form1
    Private uc1 As UC
 
    Private count As Integer = 0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        uc1 = New UC
 
        With uc1
            .Location = New Point(10, 10)
            .Size = New Size(100, 100)
            .BackColor = Color.Yellow
        End With
        AddHandler uc1.Click, AddressOf uc1_Click
 
        Me.Controls.Add(uc1)
    End Sub
 
    Private Sub uc1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        count += 1
        Me.Text = count.ToString
    End Sub
End Class
 
 
<DefaultEvent("Click")> Public Class UC
    Inherits UserControl
 
    Sub New()
        Me.SetStyle(ControlStyles.StandardDoubleClick, False)
    End Sub
 
    Protected Overrides Sub OnMouseClick(ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            MyBase.OnMouseClick(e)
        End If
    End Sub
 
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            MyBase.OnMouseDown(e)
        End If
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            MyBase.OnMouseUp(e)
        End If
    End Sub
 
    Protected Overrides Sub OnMouseDoubleClick(ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            MyBase.OnMouseDoubleClick(e)
        End If
    End Sub
End Class

<DefaultEvent("Click")> Public Class UC
    Inherits UserControl
 
    Sub New()
        Me.SetStyle(ControlStyles.StandardDoubleClick, False)
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            MyBase.OnMouseUp(e)
            MyBase.OnClick(e)
        End If
    End Sub
 
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        'MyBase.OnClick(e)
    End Sub
End Class

If e.Button = MouseButtons.Right Then Return