Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles DataGrid1.Click
        Dim mp As Point = DataGrid1.PointToClient(Cursor.Position)
        Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(mp)
        Debug.WriteLine(hti.Column & "/" & hti.Row)
    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