假定窗体有上个状态的文本框 在文本框单击事件写入如下代码

Private Sub 状态_Click()
Me.状态.SelStart = 0
Me.状态.SelLength = Len(Me.状态)
SendKeys "^{c}", True
End Sub

即可实现把 点击文本框即可全选对应数据 在进行ctrl+c 复制  

实现前提 此文本框必须能获得焦点