主题：我的日历窗口中的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日历.刷新

按照老师的方法试了没用。但很奇怪，按住ctrl键不放打开文件时日历窗口显示正常，如果不用ctrl键直接打开文件日历窗口显示就出错不正常？

ok