主题：[求助]窗口中双击输入当前时间报错

我设计了一个窗口，里面有个文本框是绑定到“电雕完成时间”，我在双击事件中写的代码：

Dim dr As Date="电雕完成时间"
dr=Date.Now()

问题是我双击的时候出现报错，但是也能把时间输入，这是怎么回事？
此主题相关图片如下：完成时间.jpg