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