Нужно чтоб при выделении одного элемента таблицы выводились индексы всех элементов этой строки - VB

 Dim i, j As Integer
    Dim a(,), n, m, p, k As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        n = 4
        m = 4
        DataGridView1.ColumnCount = n
        DataGridView1.RowCount = m
        Randomize()
        For Me.i = 0 To m - 1
            For Me.j = 0 To n - 1
                DataGridView1.Columns(j).DefaultCellStyle.BackColor = Color.Green
                DataGridView1.Item(j, i).Value = (Int(10 * Rnd() - 3))
            Next
        Next
    End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
        For i = 1 To DataGridView1.RowCount
            For j = 1 To DataGridView1.RowCount
 
                If DataGridView1.Rows(i - 1).Cells(j - 1).Selected = True Then
                    p = i
                    k = j
                    ListBox1.Items.Add(p & k)
 
                End If
            Next
        Next
    End Sub