程序启动时提示错误，请老师指点并帮忙修改一下代码，谢谢！
之前运行都正常，就今天提示错误。
错误如图：
此主题相关图片如下：运行错误.png
附：SystemIdle事件代码：
'以下代码用于在状态栏显示当前用户及日期
static ln As New Lunar(Date.Today)
Dim str As String = ""
Dim d As Date = CDate(ln.LunarDate)
If d.Day <= 10 Then
str = cldate(d).Substring(5).trim("日")
str = str.Insert(str.Length-1, "初")
Else
str = CLDate(d).SubString(5).trim("日")
End If
statusBar.Message1 = " " & "使用单位:" & User.Name & " " & "操作员:" & _UserName & " " & _
"今天是: " & Format(Date.Today,"yyyy-MM-dd") & " " & format(Date.now, "HH:mm:ss") & " 农历" & _
str & " " & Format(Date.Today,"dddd" )
[此贴子已经被作者于2023/3/20 19:51:10编辑过]
加好友 
发短信
Post By：2023/3/20 19:50:00 [只看该作者]
