Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim ICell As Integer = e.ColumnIndex
        Dim IRow As Integer = e.RowIndex

        If _IRow >= 0 Then

            MsgBox(dgvView.Rows.Item(IRow).Cells(ICell).Value)

        End If
 
End Sub