主题：[求助]主窗口改为共有窗口，sizechanged事件报错

逛逛老师的小日历，将主窗口改为共有窗口，sizechanged事件报错，代码如下：

If e.Form.Controls("BL_日历_当前选择年月").text = "" Then Return
Dim MyYear =CDate(e.Form.Controls("BL_日历_当前选择年月").text).Year
Dim MyMonth =CDate(e.Form.Controls("BL_日历_当前选择年月").text).Month
Functions.Execute("日历_小日历刷新",e.Form.Controls("T_日历"),MyYear,MyMonth)

报错提示：

错误所在事件：窗口,导航窗口,SizeChanged
详细错误信息：
从字符串“BL_日历_当前选择年月”到类型“Date”的转换无效。