'内部イメージ 

Private Sub RaiseMouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseClick

    If e.Button = MouseButtons.Left Then

        OnClick(e)

    End If

End Sub