Private Sub GetSelectionChangedValue(e As DataGridViewCellEventArgs) Dim selectedRow As DataGridViewRow Dim index As Integer index = e.RowIndex selectedRow = dgvtest.Rows(index) lblCellCange.Text = selectedRow.Cells(2).Value.ToString End Sub Private Sub dgvtest_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvtest.CellClick GetSelectionChangedValue(e) End Sub