控件里MouseDown一下想实现复制控件里的字符
下面代码，每粘贴到窗口1个控件里都需要修改控件成想对应的控件名称很麻烦，求助改成通用的一段不用改控件名称的代码
Dim s As String = e.Form.Controls("TextBox1").Value
If s <> "" Then
ClipBoard.SetText(s)
MessageBox.Show("已 复制!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If