01.Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
02. On Error GoTo duplicate
03.
04. Dim imb() As Byte = DataGridView1.Rows.Item(e.RowIndex).Cells(3).Value
05. Dim ims As New MemoryStream(imb)
06.
07. With DataGridView1
08.
09. txt1.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString
10. txt2.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString
11. txt3.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString
12.
13. PictureBox2.Image = Image.FromStream(ims)
14.
15. End With
16.duplicate:
17. Exit Sub
18. End Sub
