Private Sub dgv_doc_CellMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgv_doc.CellMouseUp
If e.RowIndex = -1 Then Exit Sub
With dgv_doc
txt_id.Text = .Row.item(e.RowIndex).call(0).value.tostring()
txt_name.Text = .Row.item(e.RowIndex).call(1).value.tostring()
txt_phone.Text = .Row.item(e.RowIndex).call(2).value.tostring()
txt_id.Focus()
txt_id.SelectAll()
End With
End Sub