主题：[求助]已经按照帮助说明自定义了用户登录界面，并将用户信息保存到SQL了，现在想在计划管理或者状态栏里引用自定义的当前登录用户的的名称，哪位老师给说一声应该怎么引用啊！

Dim Today As Date = Date.Today

Dim Names As String = "日一二三四五六"

Dim s As String = _UserName

Dim ss As String 

ss = s.SubString(0,6)

Dim Str11 As String

Str11 ="时间:" & Date.Now  & "  星期" & Names.Chars(Today.DayOfWeek) & " 账号:" & ss & " "

StatusBar.Message3 = Str11

这是我写在状态栏的代码，哪位老师看看哪里出错了？