C# と VB.NET の質問掲示板

下記サンプルでは棒グラフの上でマウスをクリックしないことにはメッセージの表示がされません。
これをx軸さえ合っていればどこでクリックしても表示がされるようにしたのですがどうすれば良いのでしょうか？
よろしくお願いします。

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dat As DataTable = New DataTable
        With dat.Columns
            .Add("件数", GetType(Integer))
            .Add("数量", GetType(Integer))
        End With

        For i = 1 To 10
            dat.Rows.Add(i, i * 10)
        Next

        Chart1.DataSource = dat
        Chart1.Series.Clear()
        Dim boug = Chart1.Series.Add("棒グラフ")
        With boug
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "件数"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With
    End Sub

    'Chart1でマウスをクリック時の処理
    Private Sub Chart1_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.Click
        '位置の要素を取得
        Dim htrResult As HitTestResult = Chart1.HitTest(e.X, e.Y)
        If htrResult.ChartElementType = ChartElementType.DataPoint Then
            MessageBox.Show(htrResult.PointIndex + 1)
        End If
    End Sub
End Class