Private Sub dgClick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles DataGrid1.Click
        Dim mp As Point = Cursor.Position
        Dim cp As Point = DataGrid1.PointToClient(mp)
        Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(cp.X, cp.Y)
        Debug.WriteLine("row=" & hti.Row.ToString())
    End Sub

    Private Sub dgMouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
        If e.Button = MouseButtons.Left Then
            Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(e.X, e.Y)
            Debug.WriteLine("row=" & hti.Row.ToString())
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist