主题：我的日历窗口中的afterload事件加载时出错

我的日历打开时出错：“UserCode”的类型初始值设定项引发异常。出错详情：不知是什原因，我的日历窗口元旦前打开一直是正常，元旦过后升级系统后我的日历窗口不知什么莫名打开就不正常，出现以上错误，分析不出原因。老实指导一下。内部函数和全局代码未动过。以下是窗口加载原代码：

日历_AfterLoad

 

_my日历 = New 自定义日历

_my日历.Panel绑定(e.Form.Controls("Panel1"))

 

周历开个 =  0

周 = -10000

Dim MyDate1 As Date = _my日历.日期

e.Form.Controls("L_当前年月").text = MyDate1.Year & "年" & MyDate1.Month & "月"

_my日历.日期 = MyDate1

_my日历.刷新

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。