Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
        Dim mp As Point = Me.PointToClient(Me.MousePosition)
        Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(e.X, e.Y)
        Debug.WriteLine("Click:" + hti.Column.ToString() + "/" + _
          hti.Row.ToString())
    End Sub

    Private Sub DataGrid1_MouseHover(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles DataGrid1.MouseHover
        Dim mp As Point = DataGrid1.PointToClient(Me.MousePosition)
        Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(mp)
        Debug.WriteLine("Hover:" + hti.Column.ToString() + "/" + _
          hti.Row.ToString())
    End Sub