PictureBox обработка MouseClick

Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
 
    Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick
        MsgBox("Left:2:" & CStr(e.X) + ":" + CStr(e.Y))
    End Sub
 
    Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
        MsgBox("Left:1:" & CStr(e.X) + ":" + CStr(e.Y))
    End Sub

Private Sub Clicks(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick, PictureBox1.MouseClick
     MsgBox("Left:2:" & CStr(e.X) + ":" + CStr(e.Y))
End Sub

Private Sub Clicks(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDoubleClick, PictureBox1.MouseClick
        If e.Clicks = 2 Then
            Me.Text = "Событие MouseDoubleClick"
        Else
            Me.Text = "Событие MouseClick"
        End If
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        TraceMessage(sender.Name)
    End Sub
    Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
        TraceMessage(sender.Name)
    End Sub
    Public Sub TraceMessage(message As String, <Runtime.CompilerServices.CallerMemberName> Optional memberName As String = Nothing)
        ListBox1.Items.Add("sender:" & message & " - caller: " & memberName)
    End Sub

    Private Sub PictureBox1_Clicks(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.Click, PictureBox1.DoubleClick
        If e.Button = MouseButtons.Left Then
            If e.Clicks = 1 Then
                Label1.Text = 1
            Else
                Label1.Text = 2
            End If
        End If
    End Sub