EmersonH.Com

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Uses Test class from above.
        Dim list = New List(Of Test)
        list.Add(New Test("Mac", 2200))
        list.Add(New Test("PC", 1100))
        DataGridView1.DataSource = list
    End Sub

    Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
        ' Get the current cell location.
        Dim y As Integer = DataGridView1.CurrentCellAddress.Y
        Dim x As Integer = DataGridView1.CurrentCellAddress.X

        ' Write coordinates to console.
        Console.WriteLine(y.ToString + " " + x.ToString)
    End Sub
End Class