Private Sub lblC01_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblC01.Click
        Dim myTxt As TextBox
        myTxt = CType(dgvA.EditingControl, TextBox)
        txtC01.Text = myTxt.SelectedText
    End Sub