Menampilkan Klik Datagridview ke Textbox (cellMouse_Click)

Menampilkan Klik Datagridview ke Textbox (cellMouse_Click)
----------------------------------------------------------
Langkah =
1. Klik 2x datagridview nya
2. Ganti Event nya menjadi CellMouse_Click
3. Ketikkan Koding di bawah ini.


Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
Dim d = Me.DataGridView1.CurrentRow.Index
With DataGridView1.Rows.Item(d)
Tid.Text = .Cells(0).Value
Tuser.Text = .Cells(1).Value
Tpass.Text = .Cells(2).Value
Tnama.Text = .Cells(3).Value
Talamat.Text = .Cells(4).Value
Ttelp.Text = .Cells(5).Value
Cstatus.Text = .Cells(6).Value
End With
End Sub