主题：如何设置全局变量日期？

如图：

 

此主题相关图片如下：250.jpg

 

出货单日期控件名称为：DateTimePicker1

 

 

窗口 afterload 事件有一段代码：

 

Dim chuhuodate2 As Date  '这是全局变量
Dim Datetimepicker1 As Date
If chuhuodate2="" Then '如果全局变量没有设定日期
Datetimepicker1=Date.Today() '那么日期等于今天
Else
Datetimepicker1=chuhuodate2  '否则等于全局变量的日期。
End If

运行窗口的时候出错如下：

 

 

此主题相关图片如下：251.jpg

 

如何解决呢？