Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
   DataGridView1.CellMouseClick
        TextBox1.Text = DataGridView1.Item(e.ColumnIndex, e.RowIndex).Value
    End Sub