如下图、【宽带帐号】字体的【单击控件后执行】写有以下命令
Dim r As Row = Tables("装机工单清单表").currentClipBoard.SetText(r("宽带帐号"))
想实现点击该字体后、字体能够有一个像按钮被点击过那样一个下沉的动作;能够让人明显的感知到点击成功