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